vbs如何改成vb

本帖最后由 bcrun 于 2010-11-25 23:20:35 编辑

解决方案 »

  1.   

    dim program  
    program="D:\Program Files\CaiHong\CaiHong.exe" '你的qq路径
    oexec=shell program
    Sleep 2000  
    AppActivate "QQTang"  
    SendKeys "+{TAB}"  
    SendKeys "193345671"  
    Sleep 1000  
    SendKeys "{TAB}"  
    SendKeys "234rrtt"  
    Sleep 1000  
    SendKeys "{ENTER}"  
      

  2.   

    VB代码 只要加上 Sleep的API即可再把所有的
    Wshell. 干掉
    wscript. 干掉也已经99% 了,再加上变量定义即可
      

  3.   

    本帖最后由 bcrun 于 2010-11-25 23:18:46 编辑
      

  4.   

    本帖最后由 bcrun 于 2010-11-25 23:20:29 编辑
      

  5.   

    本帖最后由 bcrun 于 2010-11-25 23:21:05 编辑
      

  6.   

    提示 AppActivate "qqTang"是这块 “无效的过程调用或参数”
      

  7.   

    本帖最后由 bcrun 于 2010-11-25 23:21:37 编辑
      

  8.   


    能够启动51彩虹 你看到了51的界面了吗？oexec = Shell(program)
    MsgBox oexec看看看是否大于0 如等于0 则程序启动失败 不是下面给焦点的问题了
      

  9.   

    msgbox的结果是多少？0或N位数字?