- 注册时间
- 2004-3-2
- 最后登录
- 2023-5-15
管理员
お嬢様
  
- 积分
- 22410
|
发表于 2004-7-16 13:21:52
|
显示全部楼层
有了OCX的控件支持...连RM也可以播放的...
而且可以在文件目录中隐藏RT.EXE呢...说个简单的方法...把RT.EXE的扩展名换成别的..如DLL~123~UYI(名字随意)
然后在运行过程中...调用COPY命令COPY那个换过扩展名的COPY变成RT.EXE
然后用SHELL赋值给某参数就OK....( RetVal = Shell(XXXXXXXXXX) )
瓜仔注意一下以下语句...这是你的某一部分命令
Private Sub Command1_Click()
Dim RetVal
RetVal = Shell(\".\\RPG_RT.exe\", 1) \'启动外部程序
If q = 1 Then
Else
k = 1
Do While k < 30000000
k = k + 1
Loop
SendKeys \"{F4}\", True
End If
Unload Me
End Sub
红字标出部分你是想延迟时间吧...用TIMER控件吧...别用DO LOOP来做...每个人的电脑不一定一样..延迟也有可能出错..
建议用TIMER做...
|
|