请问这段代码 如何在VB中使用

RUN("mstsc.exe") ;先是启动远程登陆程序
winwait("远程桌面连接") ;程序暂停到指定窗口出现为止
winactivate("远程桌面连接") ;激活指定窗口
send("主机地址") ;自动输入服务器IP
send("!n") ;然后是连接！n=alt+n 
;下面就开始输入密码
winwait("主机地址 - 远程桌面")
winactivate("主机地址 - 远程桌面") ;激活指定窗口
send("123456") ;这个是密码
send("{enter}");最后按回车进入 --------------------编程问答-------------------- 自己顶一下 --------------------编程问答-------------------- 首先WINEXEC

然后使用一个TIMER或一个死循环查找窗口标题，然后找到句柄后退出循环
然后把指定窗口设置为顶端窗口

然后得到两个文本框的句柄
分别SETTEXT

然后发送回车键，完毕。。。

么有安装WINDOWS以及VB。。。

所以就这么告诉你算了。。。 思路很详细了。。。  --------------------编程问答-------------------- 至于你WAIT到的那个窗口，直接模拟鼠标点击，然后模拟按键点击 就可以完成全部动作。。。 

你自己写去吧 --------------------编程问答-------------------- 怎么模拟呢  --------------------编程问答-------------------- Dim wsShell As Object 
Dim bldx As String 
bldx = App.Path & "\mstsc.exe" 
Set wsShell = CreateObject("WScript.Shell") 
wsShell.exec ("" + bldx + " /v:192.168.18.28:3389 /admin /w:1024 /h:768 ") 
我下面  不知道该如何写下去了  
--------------------编程问答-------------------- 鼠标后台发送消息是用POSTMESSAGE    坐标参数最后面的是 y*2^16+x 

这个比MOUSEEVENT好用。。。  
你找找吧，什么都让别人给你搞完了，到底是谁做这个东西呢。。。

--------------------编程问答-------------------- 大哥教较  小弟了 

补充：VB ,  API