一个游戏菜单的au3源码

一个游戏菜单的au3源码

Submitted by hopol on 2008, June 15, 8:47 AM. 網管相關

#include <GUIConstants.au3>
#NoTrayIcon
AutoItSetOption("RunErrorsFatal", 1)
#include <File.au3>
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "WebView", "REG_DWORD", "00000000")
$file1 = FileOpen(@ScriptDir &"\公告.txt", 0)

If $file1 = -1 Then
MsgBox(0, "Error", "公告TXT打开失败.")
Exit
EndIf
$line = FileReadLine($file1,1)
FileClose($file1)
Dim $s_TempFile
$s_TempFile = _TempFile()
$var = IniReadSectionNames(@ScriptDir &"\config.ini")
If @error Then
MsgBox(4096, "提示", "打开配置文件出错!")
exit
else
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate ( "AU3编写游戏菜单_zhunaoke编写", 800, 600,-1, -1)
$GUIActiveX = GUICtrlCreateObj ($oIE, -1, 35 , 820 , 525)
$Button1 = GuiCtrlCreateButton (""& $var[1] &"", 5, 3, 85, 27)
$Button2 = GuiCtrlCreateButton (""& $var[2] &"", 100, 3, 85, 27)
$Button3 = GuiCtrlCreateButton (""& $var[3] &"", 195, 3, 85, 27)
$Button4 = GuiCtrlCreateButton (""& $var[4] &"", 290, 3, 85, 27)
GUICtrlCreateLabel (""& $line &"",160,570,500,25)
GUISetState ()
$Button = 1
Temp_file($Button)
$oIE.navigate(""& $s_TempFile &"")
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button1
$Button = 1
Temp_file($Button)
$oIE.navigate(""& $s_TempFile &"")
Case $msg = $Button2
$Button = 2
Temp_file($Button)
$oIE.navigate(""& $s_TempFile &"")
Case $msg = $Button3
$Button = 3
Temp_file($Button)
$oIE.navigate(""& $s_TempFile &"")
Case $msg = $Button4
$Button = 4
Temp_file($Button)
$oIE.navigate(""& $s_TempFile &"")
EndSelect
Wend
EndIf
Func Temp_file($Button)
if $Button = 1 then
$linkdir = iniread(@ScriptDir &"\config.ini",$var[1],"linkdir","")
elseif $Button = 2 then
$linkdir = iniread(@ScriptDir &"\config.ini",$var[2],"linkdir","")
elseif $Button = 3 then
$linkdir = iniread(@ScriptDir &"\config.ini",$var[3],"linkdir","")
elseif $Button = 4 then
$linkdir = iniread(@ScriptDir &"\config.ini",$var[4],"linkdir","")
endif
$file = FileOpen(""& $s_TempFile &"", 2)
FileWriteLine($file, "<html><head><title>html</title></head><BODY onmouseup=document.selection.empty"& chr(40) & chr(41) &" oncontextmenu=return false onselectstart=return false ondragstart=return false onbeforecopy=return false oncopy=document.selection.empty"& chr(40) & chr(41) &" leftMargin=0 topMargin=0 onselect=document.selection.empty"& chr(40) & chr(41) &"><TR><TD vAlign=top align=left><IFRAME marginWidth=1 marginHeight=1 src="& chr(34) & $linkdir & chr(34) &" frameBorder=1 width=100% scrolling=yes height=100%></IFRAME><tr><td></BODY></html>")
FileClose($file)
EndFunc
Exit