连接虚拟盘后.运行参数内定义的文件.
我做的是一个ISCSI 出盘被动.首先说效果是这样的1.客户机开机后.没连ISCSI服务器
2.当客户运行.游戏.且游戏盘没出盘时.则连接服务器
3.连接完成后.会自动返回运行之前的东西.
我是这么写的.
1.简单的判断游戏存在不存在.当点机不存在时的图标:
WinWaitActive ("快捷方式存在问题","该快捷方式所指向的项目")
Send ("!n")
2.上面触发后.就连ISCSI盘
$g_szVersion = "My Script 1.1"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
HotKeySet("{Esc}","Exit_qout")
dim $test="E:\"
Dim $path_l = "192.168.1.248"
dim $scsipath = @SystemDir&"\"&"iscsicpl.cpl"
If Not FileExists ($scsipath) Then
MsgBox (48,"连接服务器",@CRLF&" 没有找到ISCSI客户端,不能连接到游戏服务器."&@CRLF&@CRLF&"您可以重启计算机,来尝试解决此问题.或者联系网吧管理员.",30)
Exit
EndIf
if FileExists ($test) Then
Sleep(1)
Else
$Main = GUICreate("1+1网络会所", 263, 120, -1, -1)
;~ GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("", 8, 8, 249, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$progress=GUICtrlCreateProgress(38,79,180,15)
GUICtrlSetColor(-1, 0x9999FF)
GUISetState(@SW_SHOW)
for $x = 1 To 6
GUICtrlCreateLabel("请稍候... 正在连接游戏服务器", 50, 30, 200, 15)
GUICtrlCreateLabel("第 次连接", 100, 60, 100, 15)
GUICtrlCreateLabel($x, 116, 60, 6, 15)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("按{E&SC}键中止连接", 84, 96, 150, 15)
For $m = 10 to 100 Step 5
GUICtrlSetData ($progress,$m)
Sleep(220)
IFTEST()
Next
RunWait(@ComSpec & " /c " & "iscsicli AddTargetPortal "&$path_l&" 3260", "",@SW_HIDE)
Run(@ComSpec & " /c " & "iscsicli LoginTarget iqn.2005-02.com.ricecake.iscsi:00 T * * * * * * * * * * * * * * * 0", "",@SW_HIDE)
IFTEST()
Next
if Not FileExists ($test) Then
MsgBox (48,"连接失败","无法连接到游戏服务器.可能是由于网络故障,或者服务器异常关闭."&@CRLF&@CRLF&"请尝试使用本机游戏 进行游戏,或者联系网吧管理员.")
Exit
EndIf
EndIf
Func Exit_qout()
Exit
EndFunc
Func IFTEST()
If FileExists ($test) Then
MsgBox (4096,"1+1提示您","已经连接游戏服务器。请重新运行游戏",100)
Exit
EndIf
EndFunc
==========================================以上是发现lnk不存在则连盘的效果=================================================
4.连盘后返回定义里运行的东西
#include <GUIConstants.au3>
#Include <Constants.au3>
#NoTrayIcon
If $cmdline <> 0 Then
$filename = $cmdline
Else
MsgBox(64, "测试", '请带参数运行此程序')
Exit
EndIf
$var = iniread("d:\file.ini","游戏目录","key"& $filename,"")
if $var = "" then
msgbox(16,"error","没有设置文件")
Exit
EndIf
$details = FileGetShortcut($var)
#Region ### START Koda GUI section ### Form=
$AForm1 = GUICreate("AForm1", 544, 133, 252, 244)
$Progress1 = GUICtrlCreateProgress(24, 64, 497, 25)
GUICtrlSetColor(-1,32250)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Button1 = GUICtrlCreateButton("运行游戏", 24, 16, 89, 25, 0)
$Button2 = GUICtrlCreateButton("打开游戏目录", 232, 16, 89, 25, 0)
$Button3 = GUICtrlCreateButton("退出", 432, 16, 89, 25, 0)
$Label1 = GUICtrlCreateLabel("欢 迎 光 临 祝 您 玩 得 开 心...", 40, 104, 452, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$Msg = GUIGetMsg()
Select
Case $Msg = $GUI_EVENT_CLOSE
Exit
Case $Msg = $Button1
pan()
exit
Case $Msg = $Button2
pan4()
exit
Case $Msg = $Button3
Exit
EndSelect
WEnd
Func pan()
If FileExists($var) then
ShellExecute($details)
Else
GUICtrlSetData ($Label1,"正 在 连 接 游 戏 盘，请 稍 后...")
jin()
EndIf
EndFunc
Func pan2()
If FileExists($var) then
ShellExecute($details)
Else
msgbox(16,"error","未找到游戏，请确认游戏目录")
EndIf
EndFunc
Func pan3()
If FileExists($var) then
Run("explorer.exe "&$details)
Else
msgbox(16,"error","未找到游戏，请确认游戏目录")
EndIf
EndFunc
Func pan4()
If FileExists($var) then
Run("explorer.exe "&$details)
Else
GUICtrlSetData ($Label1,"正 在 连 接 游 戏 盘，请 稍 后...")
jin2()
EndIf
EndFunc
Func jin()
$wait = 20; wait 20ms for next progressstep
$s = 0; progressbar-saveposition
while 1
if FileExists("h:") then
For $i = $s To 25
GUICtrlSetData ($Progress1,$i)
Sleep($wait)
$m = GUIGetMsg ()
If $m = -3 Then
Exit
Endif
next
if FileExists("t:") then
For $i = 25 To 50
GUICtrlSetData ($Progress1,$i)
Sleep($wait)
$m = GUIGetMsg ()
If $m = -3 Then
Exit
Endif
Next
if FileExists("w:") then
For $i = 50 To 75
GUICtrlSetData ($Progress1,$i)
Sleep($wait)
$m = GUIGetMsg ()
If $m = -3 Then
Exit
Endif
Next
if FileExists("z:") then
For $i = 75 To 100
GUICtrlSetData ($Progress1,$i)
Sleep($wait)
$m = GUIGetMsg ()
If $m = -3 Then
Exit
Endif
Next
MsgBox (0,"","太好了，所有盘都在")
pan2()
Exitloop
EndIf
EndIf
EndIf
Endif
Wend
EndFunc
Func jin2()
$wait = 20; wait 20ms for next progressstep
$s = 0; progressbar-saveposition
while 1
if FileExists("c:") then
For $i = $s To 25
GUICtrlSetData ($Progress1,$i)
Sleep($wait)
$m = GUIGetMsg ()
If $m = -3 Then
Exit
Endif
next
if FileExists("d:") then
For $i = 25 To 50
GUICtrlSetData ($Progress1,$i)
Sleep($wait)
$m = GUIGetMsg ()
If $m = -3 Then
Exit
Endif
Next
if FileExists("e:") then
For $i = 50 To 75
GUICtrlSetData ($Progress1,$i)
Sleep($wait)
$m = GUIGetMsg ()
If $m = -3 Then
Exit
Endif
Next
if FileExists("f:") then
For $i = 75 To 100
GUICtrlSetData ($Progress1,$i)
Sleep($wait)
$m = GUIGetMsg ()
If $m = -3 Then
Exit
Endif
Next
MsgBox (0,"","太好了，所有盘都在")
pan2()
Exitloop
EndIf
EndIf
EndIf
Endif
Wend
EndFunc
5.这是INI文件.
[游戏目录]
key1=C:\Documents and Settings\Administrator\桌面\千千静听.lnk
key2=C:\Documents and Settings\Administrator\桌面\QQ游戏.lnk
key3=D:\xx3.lnk
key4=D:\xx4.lnk
key5=D:\xx5.lnk
问题:我怎么样才能让步骤完美的执行下来....1.监控LNK不存在时弹出的对话框.发现后连盘.连盘后出现第的GUI.....:条件当连盘后就不出现判断lnk了.直接出现第的GUI.
页:
[1]