你好,我想提定程序解乱码,用VB如何实现

游戏是香港的,如何用AppLocale给指定的程序解乱码,我需要源代码,请详细写出来
我是在VB6使用,以下的回答好像做不到,procAppLoc.StartInfo.Arguments = Program we are calling, its arguments & local ID
为红色,说找不到定义变量,如果不在NET下,用VB6如何实现

  这里有一个VB.NET的例子你可以参考一下

  Dim procAppLoc As Process
  Dim intAppLocID As Integer

  '创建AppLocale进程对象.
  procAppLoc = New Process

  '创建进程
  procAppLoc.StartInfo.FileName = "C:\Windows\AppPatch\AppLoc.exe"
  procAppLoc.StartInfo.Arguments = Program we are calling, its arguments & local ID
  procAppLoc.StartInfo.ErrorDialog = True
  procAppLoc.EnableRaisingEvents = True

  '开始进程
  procAppLoc.Start()

  '获取AppLocale进程ID
  intAppLocID = procAppLoc.Id

  procAppLoc.WaitForExit()
  procAppLoc.Dispose()

  Dim objWMI As Object
  Dim colItems As Object
  Dim objItem As Object
  Dim intChildProcessID As Integer

  '创建Win32_Process对象
  objWMI = GetObject("winmgmts:\\.\root\CIMV2")
  colItems = objWMI.ExecQuery("SELECT * FROM Win32_Process", "WQL")

  '查找检索子进程ID
  intChildProcessID = -1
  For Each objItem In colItems
  If objItem.ParentProcessId = intAppLocID Then
  intChildProcessID = objItem.ProcessId
  End If
  Next

  Dim procChild As Process

  If intChildProcessID > -1 Then
  '获取子进程对象
  procChild = Process.GetProcessById(intChildProcessID)

  '等待子进程退出
  procChild.WaitForExit()
  procChild.Dispose()
  End If

  程序使用方法:
  MyAppLocWrapper.exe program [arguments] /L[local id]来自:求助得到的回答
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-02-03
在Form close 事件中写到:

1. System.Io.File.WriteAllText ("\TEM.txt" , Textbox1.Text)
2. System.Io.File.WriteAllText ("\TEM1.txt" , Textbox2.text)

在Form Load中写入

1. Textbox1.text = System.IO.File.ReadAllText ("\TEM.txt")
2. Textbox2.text = System.IO.File.ReadAllText ("\TEM1.txt")
第2个回答  2010-02-03
VB问题还比较容易实现
相似回答
大家正在搜