找回密码
 加入
搜索
查看: 3449|回复: 1

[GUI管理] 【求助】AU3编译后提示内存不能读

[复制链接]
发表于 2010-5-26 15:06:37 | 显示全部楼层 |阅读模式
AU3编译后提示内存不能读,在我的机子上无任何错误提示,但是到别人机子上就报错。这是为啥呢。望大侠告诉我。
源码
#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=E:\图标\思远.ico
#AutoIt3Wrapper_outfile=虫子樱桃实用查询工具.exe
#AutoIt3Wrapper_Res_Comment=本软件搜索功能归雨林木风的115工具箱所有!
#AutoIt3Wrapper_Res_Description=虫子樱桃实用查询工具
#AutoIt3Wrapper_Res_LegalCopyright=虫子樱桃 
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$mainwindow=GUICreate("虫子樱桃实用查询工具", 392, 135, 193, 125)
FileInstall("c:\SkinCrafterDll.dll",@TempDir&"")
FileInstall("c:\vista.skf",@TempDir&"")
_SkinGUI(@TempDir&"\SkinCrafterDll.dll", @TempDir&"\Vista.skf", $mainwindow)
Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
   $Dll = DllOpen($SkincrafterDll)
   DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
   DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
   DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
   DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
   DllCall($Dll, "int:cdecl", "ApplySkin")
EndFunc
$Combo1 = GUICtrlCreateCombo("--请选择您要查询的类型--", 16, 32, 161, 25)
GUICtrlSetData(-1, "网速测试工具|手机归属地查询|身份证号码查询|网站IP查询|城市邮编查询|车牌号码查询|网站综合查询")
GUICtrlCreateGroup("说明", 192, 8, 185, 105)
$Label2 = GUICtrlCreateLabel("本工具集成网速测试工具|手机归属地查询|身份证号码查询|网站IP查询|城市邮编查询|车牌号码查询|网站综合查询这七种实用功能。本工具仅供技术交流,请勿用作他途!", 200, 24, 175, 80)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("请选择您要查询的类型", 16, 16, 124, 17)
$Label3 = GUICtrlCreateLabel("思远技术论坛 虫子樱桃 出品", 17, 99, 170, 17)
$Button1 = GUICtrlCreateButton("开始查询", 16, 64, 75, 25, 0)
$Button2 = GUICtrlCreateButton("退出", 104, 64, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        GUISetState(@SW_HIDE)
                        $xz=GUICtrlRead($Combo1)
                        Select
                                Case $xz="网速测试工具"
                                        $url="http://tool.115.com/live/speed"
                                Case $xz="手机归属地查询"
                                        $sj=InputBox("虫子樱桃提示您","请输入您要查询的手机号码")
                                        $url="http://tool.115.com/shouji/"&$sj
                                Case $xz="身份证号码查询"
                                        $sfz=InputBox("虫子樱桃提示您","请输入您要查询的身份证号码")
                                        $url="http://tool.115.com/live/idcard/q/"&$sfz
                                Case $xz="网站IP查询"
                                        $ip=InputBox("虫子樱桃提示您","请输入您要查询的网站")
                                        $url="http://tool.115.com/ip/"&$ip
                                Case $xz="城市邮编查询"
                                        $cs=InputBox("虫子樱桃提示您","请输入您要查询邮编的城市")
                                        $url="http://tool.115.com/youbian/"&$cs
                                Case $xz="车牌号码查询"
                                        $cp=InputBox("虫子樱桃提示您","请输入您要查询车牌号码")
                                        $url="http://tool.115.com/live/chepai/q/"&$cp
                                Case $xz="网站综合查询"
                                        $wz=InputBox("虫子樱桃提示您","请输入您要查询的网站")
                                        $url="http://tool.115.com/siteall/"&$wz
                        EndSelect
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
$ie=GUICreate("虫子樱桃实用查询工具", 640, 500, _
                (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
                $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Forward = GUICtrlCreateButton("作者的博客", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("思远论坛", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("退出", 340, 420, 100, 30)
GUISetState()     
_IENavigate ($oIE, $url)
While 1
        $msg = GUIGetMsg()
        Select
                Case $msg = $GUI_EVENT_CLOSE
                        ExitLoop
                Case $msg = $GUI_Button_Home
                        _IENavigate ($oIE, "http://bbs.seeyoon.com")
                Case $msg = $GUI_Button_Forward
                        _IENavigate ($oIE, "http://blog.sina.com.cn/leojayfan")
                Case $msg = $GUI_Button_Stop
                        _IEAction ($oIE, "stop")
                        _IEQuit($oIE)
                        GUIDelete($ie)
                        GUISetState()
                        Run(@ScriptFullPath)
                        Exit
        EndSelect
WEnd
                Case $Button2
                        TrayTip("虫子樱桃提示您","谢谢您的使用,正在退出.....",1000)
                        Sleep(1500)
                        FileDelete(@TempDir&"\SkinCrafterDll.dll")
                        FileDelete(@TempDir&"\Vista.skf")
                        Exit
        EndSwitch
WEnd
成品

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2010-5-26 20:45:55 | 显示全部楼层
顶贴、回帖、拿分、走人!url
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-16 04:21 , Processed in 0.076110 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表