Subject: Pocket PC displays "junk" home page URL on device startup.
Date: 31 Jul 2002 13:47:21 -0700
From: "Aram Bohdjelian" <aram.bohdjelian@fmcti.com>
Newsgroups: vb.general


Hi:

I've posted this message on the Visual Basic/General message board as well,
but had second thoughts whether that was the appropriate place.

I've written an embedded VB app which is launched on device startup (Pocket
PC 2000 or Pocket PC 2002) and does two things:

1. Calls the SHFullScreen API to disable user access to the device's start
button.

2. Launches Pocket IE (Internet Explorer) which, given its pre-set home page
URL should connect automatically to host machine running a web server.

When this app is launched, the start button is disabled as expected and Pocket
IE is launched, but several junk characters appear in the address bar instead
of the default home page's URL. The user must resort to then
keying in the proper home page URL to gain access to the web server.

If this app is not installed on the device, we normally place a Pocket IE
shortcut in ther device's startup folder so that on a warm boot Pocket IE
starts up. In this case, the proper home page URL properly appears and the
device connects to the server with no intervantion.

I'd appreciate any info regarding this problem.

I've replicated this problem on Symbol Technologies PPT2742 devices (runs
Microsoft Pocket PC 2000 OS) and PPT2842 devices (runs Microsoft Pocket PC
2002 OS). I wrote the app in embedded VB 3.0 and downloaded/installed it
to the device through ActiveSync 3.0.

Thanks in advance for any help/info.

PS: I've included below a snippet of the eVB code that launches Pocket IE.

Private Sub Command1_Click()
'Variables to be used with the CreateProcess function.
Dim rc As Long
Dim sPROCESS_INFORMATION As String
Dim hProcess As Long
Dim hThread As Long
Dim dwProcessId As Long
Dim dwThreadId As Long

'initialize the parameter for the CreateProcess function with zeros
'''''''
sPROCESS_INFORMATION = PROCESS_INFORMATION(0, 0, 0, 0)
'''''''



'Executes Pocket IE
'''''''
rc = CreateProcess("iexplore.exe", 0, 0, 0, 0, _
0, 0, 0, 0, sPROCESS_INFORMATION)
'''''''

rc = CreateProcess("\Application\regsvrce.exe", " /s \Application\MSCEFile.dll",
0, 0, 0, _
0, 0, 0, 0, sPROCESS_INFORMATION)
'Example: Runs regsvrce with pvbdload.exe as a parameter
'rc = CreateProcess("\Windows\pvbload.exe", "\Program Files\3Of9Ford\3Of9Scan.vb",
_
' 0, 0, 0, 0, 0, 0, 0, sPROCESS_INFORMATION)
'This procedure call works just like a Get statement within
'a class module. The passed variables are recieved by Reference
'and initialized within the public procedure.
'''''''
getPROCESS_INFORMATION sPROCESS_INFORMATION, hProcess, hThread, dwProcessId,
dwThreadId
'''''''

'''''''
Dim lngWaitReturn As Long
lngWaitReturn = WaitForSingleObject(hProcess, 8000)

'
g_hProcess = hProcess
'''''''

End Sub