Cheaman1

Like many, im just getting started in learning some basic development of PPC applications. While i installed the EVT 3.0
(visual tools) I cannot execute programs with certain controls in the emulator. (Picturebox) When I try to use the control manager for the emulator, i get the following error..

Failed to find suitable control manager server for your device.


After doing a search on google, I found a script that would resolve this issue. I slightly modified it to suit my needs, but i cannot get it to execute properly. I am a complete newbie in visual scripting so if you can help me that would be great.




Option Explicit

Dim platman
Dim platform
Dim platformID
Dim tPackage
Dim CPU(2)
Dim OS
Dim nCPUs
Dim instDir
Dim tPackageFile
Dim package
instDir = "C:\Windows CE Tools\wce300\Pocket PC 2002"
platformID = "{DE9660AC-85D3-4C63-A6AF-46A3B3B83737}"
' On Error Resume Next
If instDir <> "" Then
Set platman = CreateObject("PlatformManager.PlatformManager.1")
Set platform = platman.GetPlatform(platformID)
Set OS = platman.GetOS("wce300")
nCPUs = 2
Set CPU(0) = platman.GetCPU("x86")
Set CPU(1) = platman.GetCPU("armv4")
' Add the vb runtimes
GetPackage "{41D724D7-3944-11D2-A87E-0000F807F349}", "VBCE 2.0 Runtime """
AddFiles package, "runtimes", "pvbload.exe"
AddFiles package, "runtimes", "pvbform2.dll"
AddFiles package, "runtimes", "pvbhost2.dll"
AddFiles package, "runtimes", "vbscript.dll"
GetPackage "{41D724D8-3944-11D2-A87E-0000F807F349}", "VBCE 2.0 Debug Runtime"
AddFiles package, "runtimes", "pdm.dll"
AddFiles package, "runtimes", "vbrmon.dll"
GetPackage "{63C5BFD0-6C93-11d3-8485-0050047D5705}", "VBCE 2.0"
Runtime ""
AddFiles package, "runtimes", "pvbkill.exe"
GetPackage "{8FD880E0-F191-11D1-8B5C-006008B0E597}", "VBCE Declare"
Extension ""
AddFiles package, "runtimes", "pvbdecl.dll"
GetPackage "{B24C5E60-62D5-11d2-8B92-006008B0E597}", "VBCE 2.0 Control Manager"
AddFiles package, "runtimes", "pvbctrl.exe"
' Add Control packages
GetPackage "{97A3DC82-CBAC-11D0-A11F-08005AB89658}", "Microsoft CE Financial Functions 3.0"
AddFiles package, "controls", "Finance.dll"
GetPackage "{2B7F8604-8205-11D1-A765-00AA0044064C}", "Microsoft CE Common Dialog Control 3.0"
AddFiles package, "controls", "MSCEComDlg.dll"
GetPackage "{481BA4B1-56F2-11D1-A1AB-00C04FA87A04}", "Microsoft CE Comm Control 3.0"
AddFiles package, "controls", "MSCEComm.dll"
GetPackage "{25C953B5-5464-11D1-A714-00AA0044064C}", "Microsoft CE File Control 3.0"
AddFiles package, "controls", "MSCEFile.dll"
GetPackage "{3F0C2794-5C3A-11D1-A717-00AA0044064C}", "Microsoft CE File System Control 3.0"
AddFiles package, "controls", "MSCEFile.dll"
GetPackage "{532C2C02-6B55-11D1-9AA5-00C04FAD5AEC}", "Microsoft CE Grid Control 3.0"
AddFiles package, "controls", "MSCEGrid.dll"
GetPackage "{FA63C734-35D4-11D1-ACB3-00AA003EE054}", "Microsoft CE Image Control 3.0"
AddFiles package, "controls", "MSCEimage.dll"
GetPackage "{E491F002-98EC-11D1-9B3D-00C04FAD5AEC}", "Microsoft CE ImageList Control 3.0"
AddFiles package, "controls", "MSCEimagelist.dll"
GetPackage "{396BA9A2-978B-11D1-80AC-00C04FAD5EFB}", "Microsoft CE ListView Control 3.0"
AddFiles package, "controls", "MSCEListView.dll"
GetPackage "{0DA80E6D-788B-43a4-A443-E35B1FBAD9CC}", "Microsoft PocketPC MenuBar Control 3.0"
AddFiles package, "controls", "MSCEMenuBar.dll"
GetPackage "{338D5EB3-4BBD-11D1-9A7D-00C04FAD5AEC}", "Microsoft CE PictureBox Control 3.0"
AddFiles package, "controls", "MSCEPicture.dll"
GetPackage "{01FC4480-8DE5-11D1-91B7-00C04FA87A04}", "Microsoft CE TabStrip Control 3.0"
AddFiles package, "controls", "MSCETabStrip.dll"
GetPackage "{D863DA00-8C5B-11D1-86C0-00AA003EE054}", "Microsoft CE TreeView Control 3.0"
AddFiles package, "controls", "MSCETreeView.dll"
GetPackage "{23CE4D03-25A1-11D1-9A72-00A0C986B84A}", "Microsoft CE WinSock Control 3.0"
AddFiles package, "controls", "MSCEWinSock.dll"
GetPackage "{481BA4A3-56F2-11D1-A1AB-00C04FA87A04}", "Microsoft CE Comm Control 3.0"
AddFiles package, "controls", "MSCEComm.dll"
GetPackage "{25C953A7-5464-11D1-A714-00AA0044064C}", "Microsoft CE File Control 3.0"
AddFiles package, "controls", "MSCEFile.dll"
GetPackage "{23CE4CF5-25A1-11D1-9A72-00A0C986B84A}", "Microsoft CE WinSock Control 3.0"
AddFiles package, "controls", "MSCEWinSock.dll"
' ADOCE Packages
GetPackage "{113033F7-F682-11D2-BB62-00C04F680ACC}", "Microsoft Windows CE Data Access Components 3.0"
AddFiles package, "controls", "Adoce30.dll"
AddFiles package, "controls", "Adocedb30.dll"
AddFiles package, "controls", "Adosync.dll"
AddFiles package, "controls", "adoceoledb30.dll"
AddFiles package, "controls", "msdaer.dll"
AddFiles package, "controls", "msdaeren.dll"
AddFiles package, "controls", "msdadc.dll"
AddFiles package, "controls", "msdaosp.dll"
' ADOCE 3.1 Packages
GetPackage "{013E8274-DDB4-4C4D-8A53-7FB93D561BD2}", "Microsoft CE Data Access Control 3.1"
AddFiles package, "dataaccess31\target", "adoce31.dll"
AddFiles package, "dataaccess31\target", "adocedb31.dll"
AddFiles package, "dataaccess31\target", "adosync.dll"
AddFiles package, "dataaccess31\target", "adoceoledb31.dll"
AddFiles package, "dataaccess31\target", "msdaer.dll"
AddFiles package, "dataaccess31\target", "msdaeren.dll"
AddFiles package, "dataaccess31\target", "msdadc.dll"
AddFiles package, "dataaccess31\target", "msdaosp.dll"
AddFiles package, "dataaccess31\target", "adocedb30.dll"
AddFiles package, "dataaccess31\target", "adosyncstub.dll"
' ADOXCE Packages
GetPackage "{77C8DF50-D29F-11D3-98BA-00105ACC50FC}", "Microsoft CE ADOX Control 3.1"
AddFiles package, "dataaccess31\target", "adoxce31.dll"
End If
' Add CPU specific packages.
Sub AddFiles(package, location, file)
Dim ix
For ix = 0 To nCPUs - 1
CPUName = CPU(ix).Name
' PPC sdk installs arm components in arm dir instead of armv4
If ix = 1 Then
CPUName = "arm"
End If
CPUDir = instDir + "\" + location + "\" + CPUName + "\"
package.AddFile CPUDir + file, file, CPU(ix), OS, 0, 0
Next
End Sub
Sub GetPackage(pkgId, pkgName)
' On Error Resume Next
platform.DeletePackage (pkgId)
' On Error GoTo 0
Set package = platform.AddPackage(pkgName, pkgId)
End Sub




With this i get an error -line 105- variable is undefined :cpuname


Please help

:crooked:

__________________
Beta tester for life.