怎么解决向listview添加大量数据（10000条）时速度慢的问题
大家有没有遇到这样的情况啊，从数据库读取10000条这样大量数据，添加到listview速度奇慢无比，程序半天没反应，不能很快显示出来，就像死掉了一样，看Delphi / VCL相关文章，都提到用Virtual ListView技术.AUTOIT3有这个技术吗？可以应用不``` listview 10000条没啥意义吧；反正看不过来，干脆就这样操作：数据库读取10000条到文本文件，屏幕显示20条listview，具体内容根据滚动条所在位置显示。 具体内容根据滚动条所在位置显示。,LS的老兄能说详细一些吗？ 显示100都够多了，一般就显示个几十个(10-20)的样子，多了就分页 win Xp 下，40条带图标的数据，加40条空行，刷新速度还看得过去。。。。。 本帖最后由 131738 于 2009-12-30 22:09 编辑实在要一万条，就按4楼的，分类，添加分类按钮，按钮处理函数首先删除原显示数据。。。。
不过一万条也实在太多了，那分类按钮也够瞧的。。。。放弃Au3吧。。。。。 最好把程序列出来看看，我管理几万个QQ号都没觉得慢。
;au3.3.0.0
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <GUIConstants.au3>
GUICreate("ListViewItem Test", 640, 480)
$ListView1 = GUICtrlCreateListView("Item ID", 260, 70, 320, 320, -1, BitOR($WS_EX_CLIENTEDGE,$LVS_EX_GRIDLINES,$LVS_EX_TRACKSELECT))
GUICtrlSendMsg(-1, 0x101E, 0, 80)
GUISetState()
_MyList()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _Mylist()
For $i = 1 To 10000 Step 1
GUICtrlCreateListViewItem("item_" & $i, $ListView1)
Next
EndFunc 本帖最后由 131738 于 2009-12-30 22:42 编辑
不知LZ的数据与7楼的 "item_" & $i 数据相似否。。。。。
估计应该还有多个子项吧。。。。。 本帖最后由 Netfox 于 2009-12-31 10:42 编辑
我把代码贴上来哈，呵呵，其实我也没有那么多数据，也只有几百条，但是速度也跟不上`。。``有点郁闷。``。主要就是下面这个函数，当我刷新列表的时候，要它能很快的响应。现在的列表项目才200左右，响应时间都比较慢。Func _Setlist($listnum, $From);
Local $i
$i = 0
GUICtrlSendMsg($listnum, $LVM_DELETEALLITEMS, 0, 0)
GUICtrlSendMsg($listnum, $LVN_ODCACHEHINT, 0, 0)
$hImage = _GUIImageList_Create(32, 32, 5, 3) ;图标显示大小
_Conndb()
$RS.Open("Select * From box order by ID asc")
GUISetState(@SW_LOCK, $From)
While Not $RS.eof And Not $RS.bof
If @error = 1 Then ExitLoop
$title = $RS.Fields(1).value
$icon = $RS.Fields(2).value
$chk = $RS.fields(4).value
_GUICtrlListView_BeginUpdate($listnum)
_GUICtrlListView_InsertItem($listnum, $title, -1, $i)
_GUICtrlListView_EndUpdate($listnum)
If $chk = True Then
_GUIImageList_AddIcon($hImage, $icon, 1, True)
Else
_GUIImageList_AddIcon($hImage, $icon, 0, True)
EndIf
$i += 1
$RS.movenext
WEnd
_GUICtrlListView_SetImageList($listnum, $hImage, 0)
; _GUICtrlListView_Arrange ($listnum)
_Closedb()
GUISetState(@SW_UNLOCK, $From)
EndFunc ;==>_Setlist
请看代码，代码比较乱。
以下是窗体#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Icon=Lib\main.ico
#AutoIt3Wrapper_Outfile=ManMoney.exe
#AutoIt3Wrapper_Res_Comment=亮点科技
#AutoIt3Wrapper_Res_Description=溜冰场记时收费系统
#AutoIt3Wrapper_Res_Fileversion=9.12.28.0
#AutoIt3Wrapper_Res_LegalCopyright=亮点科技
#AutoIt3Wrapper_Res_Field=Tel|88709303
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
#include <Date.au3>
#Include <Array.au3>
#include <ListBoxConstants.au3>
#include<func.au3>
#include <ProgressConstants.au3>
#include<GuiEvent.au3>
Global $db_path,$conn,$rs,$T="*"
Global $ListView1, $ListView2, $text,$showxf,$HideZD,$spab,$spab1,$ysp,$xsp,$hsp1,$hsp2
Global $HideTitle,$HideXF,$Hidexftime,$Outin_form,$L1,$L2,$L3,$fr5_in1,$fr5_in2,$fr5_in3,$ID
Global $Form1,$Login_from,$Setsys_from,$pass_from,$jb_from,$newForm,$HspForm
Global $login,$numInput,$passInput,$userInput,$outin,$Button,$adduser,$modpass,$deluser
Global $input1,$fr6_l1,$fr6_l3,$ListView3,$fr5_bt1,$fr5_bt2,$Guest,$ZL,$SS,$credit,$account,$Dispense,$Cancel
Global $fr6_bt1,$fr6_in1,$fr6_in2,$fr6_bt2,$fr6_bt3,$fr6_bt4,$Date1,$Date2,$bt2,$fr4_Button1,$jcf
Global $jgsj,$fyfd,$fr4_Button2,$fr4_Button3,$fr4_Button4,$fr4_Button5,$fr4_Button6,$fr4_Button7,$fr4_Button8,$zf,$Radio1,$Radio2,$Radio3,$Radio4,$spa,$spb,$spb1
Global $Username,$Q,$S,$Z,$Money,$Manager,$Occupy,$count,$content,$ZD,$YLBD,$regbuy,$Hide_xj,$fr6_l5,$Hide_count,$HIde_jbsj,$fr6_l6,$Hide_yk,$Date3,$Date4,$fr6_list1
Global $Item,$startteime,$losttime,$online,$offline,$NONEAACTIVECOLOR,$Dll_,$YLList,$fr6_l2,$yjinput,$GkBt1,$GkBt2,$bt1
Global $newb1,$newb2,$userlist1,$newuserinput1, $newuserinput2, $newpassinput1, $newpassinput2 ,$BZEdit
Global $rescombo,$resb,$dirtemp,$Combo1,$kryjs,$hideZL,$zero,$Showsph,$Hidesph,$Gkkt,$Progress1
Global $timer, $Secs, $Mins, $Hour, $Time,$Pause=False ,$jfconn,$jfrs
$db_path = "HpData.mdb"
Opt("GUIOnEventMode", 1);GUIOnEventMode 启用/取消 OnEvent 函数 0 = (默认)取消/1 = 启用.
Opt("GUICloseOnESC", 0)
HotKeySet("{F4}", "check")
_MyProExists()
;绘制系统登录窗口 start
$Login_from = GUICreate("系统登录", 505, 223, -1, -1)
GUISetIcon(@ScriptDir & "\Lib\Login.ico")
GUISetBkColor(0xD2D2FF)
GUICtrlCreatePic(@ScriptDir & "\Lib\Login.jpg", 40, 24, 137, 113, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlCreateLabel("用户编号：", 200, 80, 64, 17)
GUICtrlCreateLabel("登录密码：", 200, 120, 64, 17)
GUICtrlCreateLabel("用户姓名：", 200, 40, 64, 17)
$line = GUICtrlCreateLabel("", 16, 152, 465, 2)
GUICtrlSetBkColor(-1, 0x808080)
$regbuy = GUICtrlCreateButton("已注册", 176, 176, 80, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$login = GUICtrlCreateButton("登 录", 264, 176, 80, 25)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$outin = GUICtrlCreateButton("退 出", 352, 176, 80, 25)
$userInput = GUICtrlCreateInput("", 264, 40, 217, 24, BitOR($ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_BORDER), 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$numInput = GUICtrlCreateInput("888", 264, 80, 217, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER, $WS_BORDER), 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetState($numInput, $GUI_FOCUS)
$passInput = GUICtrlCreateInput("", 264, 120, 217, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL, $WS_BORDER), 0)
GUISwitch($Login_from)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "Gui")
GUICtrlSetOnEvent($regbuy, "Gui")
GUICtrlSetOnEvent($login, "Gui")
GUICtrlSetOnEvent($outin, "Gui")
GUICtrlSetOnEvent($numInput, "GUI")
;绘制系统登录窗口 end
loaduser()
;绘制主窗口 start
Local $aParts =
Dim $Button
Local $iExWindowStyle = BitOR($WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE)
Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER)
$Title = "已授权:" & Get_From_title() & "使用 － 溜冰场记时收费管理系统";把获取到的标题赋值给变量$Title,供主窗口调用
$Form1 = GUICreate($Title, 1017, 783, -1, -1) ;主窗口开始
GUISetIcon(@ScriptDir & "\Lib\Main.ico")
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Lib\Banner.jpg", 0, 0, 1016, 150, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlCreateGroup("", 224, 208, 1, 553)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$L1 = GUICtrlCreateListView(" 当前顾客信息", 8, 208, 209, 217, BitOR($LVS_REPORT, $LVS_SINGLESEL, $LVS_SHOWSELALWAYS, $LVS_NOSCROLL))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 209)
$hImage = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImage, @SystemDir & "\0.dll", 110)
_GUICtrlListView_SetImageList($L1, $hImage, 1)
$o = ""
For $i = 1 To 5
GUICtrlCreateListViewItem("", $L1)
Next
GUICtrlCreateListViewItem(" 点击手牌获取信息", $L1)
$L2 = GUICtrlCreateListView(" 手牌总状态", 8, 432, 209, 165, BitOR($LVS_REPORT, $LVS_SINGLESEL, $LVS_SHOWSELALWAYS, $LVS_NOSCROLL))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 209)
SetL2()
$L3 = GUICtrlCreateListView(" 注册授权信息", 8, 603, 209, 150, BitOR($LVS_REPORT, $LVS_SINGLESEL, $LVS_SHOWSELALWAYS, $LVS_NOSCROLL))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 209)
Regbox()
$ListView1 = GUICtrlCreateListView("", 232, 208, 777, 361)
GUICtrlSetBkColor($ListView1, 0x4773ae)
GUICtrlSetStyle(-1, BitOR($LVS_NOCOLUMNHEADER, $LVS_ICON, $LVS_SORTASCENDING, $LVS_SINGLESEL));删除$LVS_SINGLESEL风格即可全选
$menu1 = GUICtrlCreateContextMenu($ListView1)
$KT = GUICtrlCreateMenuItem("顾客开台", $menu1)
$JZ = GUICtrlCreateMenuItem("顾客结账", $menu1)
$separator2 = GUICtrlCreateMenuItem("", $menu1, 2)
$modify = GUICtrlCreateMenuItem("手牌更换", $menu1)
GUICtrlCreateLabel("", 0, 192, 1024, 1, $SS_SUNKEN)
$Button = GUICtrlCreateButton("进 场", 8, 160, 105, 25, 0)
$Button = GUICtrlCreateButton("出 场", 120, 160, 105, 25, 0)
$Button = GUICtrlCreateButton("刷新数据", 600, 576, 100, 25, 0)
$Button = GUICtrlCreateButton("显示占用", 704, 576, 100, 25, 0)
$Button = GUICtrlCreateButton("显示空闲", 808, 576, 100, 25, 0)
$Button = GUICtrlCreateButton("显示全部", 912, 576, 100, 25, 0)
$ListView2 = GUICtrlCreateListView(" 手牌号 | 消费单号 | 进场时间 | 已用时间 |消费金额|记帐人", 232, 608, 777, 145,$iExWindowStyle)
_GUICtrlListView_SetExtendedListViewStyle($ListView2, $iExListViewStyle)
$Input1 = GUICtrlCreateInput("", 336, 576, 137, 21)
GUICtrlCreateLabel("快速通道：", 264, 576, 68, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button = GUICtrlCreateButton("检 索", 496, 576, 100, 25, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$Button = GUICtrlCreateButton("交接班", 232, 160, 105, 25, 0)
$Button = GUICtrlCreateButton("营业员口令修改", 456, 160, 105, 25, 0)
$Button = GUICtrlCreateButton("营业报表", 568, 160, 105, 25, 0)
$Button = GUICtrlCreateButton("系统设置", 680, 160, 105, 25, 0)
$Button = GUICtrlCreateButton("数据备份", 344, 160, 105, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1, -1, "", $SBARS_TOOLTIPS)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 20)
_GUICtrlStatusBar_SetParts($StatusBar1, $aParts)
;$aParts = _GUICtrlStatusBar_GetParts($StatusBar1)
_GUICtrlStatusBar_SetText($StatusBar1, @TAB & @TAB & "绍兴亮点电脑科技提供技术支持 电话:88709303 手机:13735269568" & " ", 0)
;AdlibEnable("date", 1000)
AdlibRegister("date", 1000)
_GUICtrlStatusBar_SetText($StatusBar1, @TAB & @TAB & "本班收银员:" & man("man") & " ", 2)
GUISetOnEvent($GUI_EVENT_CLOSE, "Gui")
For $i = 0 To 11
GUICtrlSetOnEvent($Button[$i], "Gui")
Next
GUICtrlSetOnEvent($KT, "Gui")
GUICtrlSetOnEvent($JZ, "Gui")
GUICtrlSetOnEvent($modify, "Gui")
GUICtrlSetOnEvent($ListView2, "Gui")
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
;_Setlist($ListView1, $Form1)
;绘制主窗口 end
;绘制交接班窗口 start
$jb_from = GUICreate("换班登录", 639, 522, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS))
GUISetIcon(@ScriptDir & "\Lib\Main.ico")
$fr6_T1 = GUICtrlCreateTab(8, 8, 625, 505)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$fr6_ts1 = GUICtrlCreateTabItem("交班操作")
GUICtrlCreateLabel("前班结余：", 224, 104, 69, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("现金收入：", 224, 144, 69, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("抹零金额：", 224, 184, 69, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("", 44, 264, 556, 4, $SS_SUNKEN)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x000080)
$fr6_l1 = GUICtrlCreateLabel("交接员：", 180, 56, 350, 20, $SS_CENTER)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$fr6_l2 = GUICtrlCreateLabel("0.00", 312, 104, 250, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$fr6_l3 = GUICtrlCreateLabel("0.00", 312, 144, 250, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$fr6_l4 = GUICtrlCreateLabel("0.00", 312, 184, 250, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("营业额总额：", 211, 224, 82, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$fr6_l5 = GUICtrlCreateLabel("0.00", 312, 224, 250, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("上交营业款：", 211, 304, 82, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$fr6_in1 = GUICtrlCreateInput("", 312, 296, 129, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel("交班后余款：", 211, 344, 82, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$fr6_l6 = GUICtrlCreateLabel("0.00.", 312, 344, 250, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", 104, 408, 449, 81)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$fr6_bt1 = GUICtrlCreateButton("确认交班", 136, 440, 105, 25)
$fr6_bt2 = GUICtrlCreateButton("打印报表", 272, 440, 105, 25)
$fr6_bt3 = GUICtrlCreateButton("取 消", 400, 440, 105, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("接班员工ID：", 209, 384, 84, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$fr6_in2 = GUICtrlCreateInput("", 312, 376, 129, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$fr6_ts2 = GUICtrlCreateTabItem("历史交班记录")
GUICtrlCreateLabel("查询日期：", 24, 56, 64, 17)
$Date3 = GUICtrlCreateDate(_NowCalcDate(), 88, 48, 85, 22, $WS_TABSTOP)
GUICtrlCreateLabel("至", 184, 56, 16, 17)
$Date4 = GUICtrlCreateDate(_NowCalcDate(), 208, 48, 85, 22, $WS_TABSTOP)
$fr6_bt4 = GUICtrlCreateButton("查询", 456, 48, 79, 25)
$fr6_bt5 = GUICtrlCreateButton("打印", 544, 48, 79, 25)
$fr6_List1 = GUICtrlCreateListView(" 交班时间 |交班人员|接班人员|交接金额|本班收款总额|上交金额", 16, 80, 609, 425)
GUICtrlCreateTabItem("")
$HIde_qb = GUICtrlCreateInput("", 0, 0, 129, 24)
_hidekj()
$Hide_xj = GUICtrlCreateInput("", 1, 1, 129, 24)
_hidekj()
$Hide_count = GUICtrlCreateInput("", 2, 2, 129, 24)
_hidekj()
$Hide_yk = GUICtrlCreateInput("", 3, 3, 129, 24)
_hidekj()
$HIde_jbsj = GUICtrlCreateInput("", 4, 4, 129, 24)
_hidekj()
GUICtrlCreateTabItem("")
GUISetOnEvent($GUI_EVENT_CLOSE, "Gui")
GUICtrlSetOnEvent($fr6_bt1, "Gui")
GUICtrlSetOnEvent($fr6_bt2, "Gui")
GUICtrlSetOnEvent($fr6_bt3, "Gui")
GUICtrlSetOnEvent($fr6_bt4, "Gui")
GUICtrlSetOnEvent($fr6_bt5, "Gui")
GUICtrlSetOnEvent($fr6_in1, "Gui")
GUICtrlSetOnEvent($fr6_in2, "Gui")
;绘制交接班窗口 end
;绘制收银窗口start
$Outin_form = GUICreate("收银结账", 521, 293, -1,-1)
GUISetIcon(@ScriptDir & "\Lib\main.ico")
GUICtrlCreateGroup("收银付款区", 8, 8, 353, 273)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("结账单号：", 24, 48, 64, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("消费金额：", 24, 80, 64, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("押金金额：", 24, 144, 64, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("找零金额：", 24, 176, 64, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("实收金额：", 24, 208, 64, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("备注信息：", 24, 240, 64, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel("客人支付：", 24, 112, 64, 17)
GUICtrlSetColor(-1, 0x000000)
$HideXF = GUICtrlCreateInput("", 0, 0, 0, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$HideZD = GUICtrlCreateInput("", 1, 1, 0, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$HideTitle = GUICtrlCreateInput("", 2, 2, 0, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$Hidexftime = GUICtrlCreateInput("", 3, 3, 0, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$Hidezl = GUICtrlCreateInput("", 4, 4, 0, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$kryjs = GUICtrlCreateInput("", 5, 5, 0, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$Guest = GUICtrlCreateInput("", 88, 104, 145, 25, $ES_NUMBER)
$Combo1 = GUICtrlCreateCombo("", 304, 104, 49, 28)
GUICtrlSetData(-1, "9|8|7|6|5|4|3|2|1|0", "0")
GUICtrlCreateLabel("折扣率：", 240, 112, 64, 24)
$ZD = GUICtrlCreateLabel("", 88, 48, 250, 24)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Showxf = GUICtrlCreateLabel("", 88, 80, 250, 24)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$ZL = GUICtrlCreateLabel("0.00", 88, 176, 265, 28)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$SS = GUICtrlCreateInput("0.00", 88, 200, 265, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetState(-1, $GUI_DISABLE)
$Zero = GUICtrlCreateInput("", 88, 136, 100, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetState(-1, $GUI_DISABLE)
$content = GUICtrlCreateInput("", 88, 232, 265, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$account = GUICtrlCreateButton("立即结账", 376, 72, 129, 41)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$credit = GUICtrlCreateButton("退单", 376, 128, 129, 41)
$Dispense = GUICtrlCreateButton("免单", 376, 184, 129, 41)
$Cancel = GUICtrlCreateButton("取消", 376, 240, 129, 41)
GUISetOnEvent($GUI_EVENT_CLOSE, "Gui")
GUICtrlSetOnEvent($account, "Gui")
GUICtrlSetOnEvent($credit, "Gui")
GUICtrlSetOnEvent($Dispense, "Gui")
GUICtrlSetOnEvent($Cancel, "Gui")
GUICtrlSetOnEvent($Zero, "Gui")
GUICtrlSetOnEvent($Guest, "Gui")
GUICtrlSetOnEvent($Combo1, "Gui")
;绘制收银窗口 end
;绘制口令更改窗口 start
$pass_from = GUICreate("口令更改-本班收银员", 360, 184, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS),-1,$Form1)
GUISetIcon(@ScriptDir & "\Lib\Main.ico")
GUICtrlCreateLabel("原密码：", 24, 40, 52, 17)
$fr5_in1 = GUICtrlCreateInput("", 80, 32, 137, 21, $ES_PASSWORD)
$fr5_l1 = GUICtrlCreateLabel("", 2, 80, 356, 2, $SS_SUNKEN)
GUICtrlSetColor(-1, 0x808000)
GUICtrlSetColor(-1, 0x808000)
GUICtrlCreateLabel("新密码：", 24, 112, 52, 17)
GUICtrlCreateLabel("确 认：", 24, 144, 52, 17)
$fr5_in2 = GUICtrlCreateInput("", 80, 104, 137, 21, $ES_PASSWORD)
$fr5_in3 = GUICtrlCreateInput("", 80, 136, 137, 21, $ES_PASSWORD)
$fr5_bt1 = GUICtrlCreateButton("保 存", 240, 104, 97, 25)
$fr5_bt2 = GUICtrlCreateButton("退 出", 240, 136, 97, 25)
GUISetOnEvent($GUI_EVENT_CLOSE, "Gui")
GUICtrlSetOnEvent($fr5_bt1, "Gui")
GUICtrlSetOnEvent($fr5_bt2, "Gui")
;绘制口令设置窗口 end
;绘制系统设置窗口 start
Func Setsys()
$Setsys_from = GUICreate("系统设置", 545, 296, -1, -1,-1,-1,$Form1)
GUISetIcon(@ScriptDir & "\Lib\Set.ico")
GUISetFont(9, 400, 0, "MS Sans Serif")
$Tab1 = GUICtrlCreateTab(8, 8, 529, 281)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("计费设置")
GUICtrlCreateLabel("进场费：", 112, 79, 56, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlCreateLabel("最小计费时间（分钟）：", 32, 119, 139, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlCreateLabel("费用封顶：", 96, 159, 69, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$jcf = GUICtrlCreateInput("", 176, 79, 321, 21)
$jgsj = GUICtrlCreateInput("", 176, 119, 321, 21)
$fyfd = GUICtrlCreateInput("", 176, 159, 321, 21)
GUICtrlCreateGroup("", 24, 199, 497, 73)
$fr4_Button1 = GUICtrlCreateButton("保存", 296, 223, 97, 33)
$fr4_Button2 = GUICtrlCreateButton("退出", 408, 223, 97, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("手牌设置")
GUICtrlCreateGroup("批量新增", 192, 168, 257, 105)
GUICtrlCreateLabel("手牌范围：", 200, 200, 69, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$spb = GUICtrlCreateInput("", 272, 192, 169, 21)
GUICtrlCreateLabel("到：", 232, 224, 30, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$spb1 = GUICtrlCreateInput("", 272, 216, 169, 21)
GUICtrlCreateLabel("标记字符：", 200, 248, 69, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$zf = GUICtrlCreateInput("", 272, 240, 49, 21)
$Radio1 = GUICtrlCreateRadio("置前", 328, 248, 57, 17)
$Radio2 = GUICtrlCreateRadio("置后", 392, 248, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ListView3 = GUICtrlCreateListView("", 16, 40, 513, 113)
GUICtrlSetStyle($ListView3, $LVS_ICON)
$fr4_Button3 = GUICtrlCreateButton("单个新增", 456, 184, 73, 25)
$fr4_Button4 = GUICtrlCreateButton("批量新增", 456, 216, 73, 25)
$fr4_Button5 = GUICtrlCreateButton("删 除", 456, 248, 73, 25)
GUICtrlCreateGroup("单个新增", 16, 168, 169, 105)
$spa = GUICtrlCreateInput("", 32, 224, 137, 21)
GUICtrlCreateLabel("手牌号码：", 32, 200, 69, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet3 = GUICtrlCreateTabItem("数据管理")
$Group3 = GUICtrlCreateGroup("数据备份", 24, 48, 497, 81, $BS_CENTER)
$fr4_Button6 = GUICtrlCreateButton("数据备份", 40, 72, 465, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("数据恢复", 24, 144, 497, 81, $BS_CENTER)
$resLabel1 = GUICtrlCreateLabel("请选择要恢复数据的时间:", 40, 180, 150, 20)
$rescombo = GUICtrlCreateCombo("", 186, 176, 320, 25)
Setcombo()
GUICtrlCreateGroup("", -99, -99, 1, 1)
$fr4_Button7 = GUICtrlCreateButton("恢复", 344, 240, 81, 25)
$fr4_Button8 = GUICtrlCreateButton("取消", 440, 240, 81, 25)
$TabSheet4 = GUICtrlCreateTabItem("用户管理")
$userlist1 = GUICtrlCreateListView(" 用户编号 | 用户姓名 | 密码", 16, 40, 385, 241)
ShowUser()
$adduser = GUICtrlCreateButton("新增用户", 424, 176, 89, 25)
$modpass = GUICtrlCreateButton("修改密码", 424, 216, 89, 25)
$deluser = GUICtrlCreateButton("删除用户", 424, 256, 89, 25)
GUICtrlCreateTabItem("")
GUISwitch($Setsys_from)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "Gui")
GUICtrlSetOnEvent($fr4_Button1, "Gui")
GUICtrlSetOnEvent($fr4_Button2, "Gui")
GUICtrlSetOnEvent($fr4_Button3, "Gui")
GUICtrlSetOnEvent($fr4_Button4, "Gui")
GUICtrlSetOnEvent($fr4_Button5, "Gui")
GUICtrlSetOnEvent($fr4_Button6, "Gui")
GUICtrlSetOnEvent($fr4_Button7, "Gui")
GUICtrlSetOnEvent($fr4_Button8, "Gui")
GUICtrlSetOnEvent($adduser, "Gui")
GUICtrlSetOnEvent($modpass, "Gui")
GUICtrlSetOnEvent($deluser, "Gui")
EndFunc ;==>Setsys
Func NewUser()
$newForm = GUICreate("新建用户", 312, 233, -1, -1)
$newuserinput1 = GUICtrlCreateInput("", 136, 32, 121, 21, $ES_NUMBER)
$newuserinput2 = GUICtrlCreateInput("", 136, 72, 121, 21)
$newpassinput1 = GUICtrlCreateInput("", 136, 112, 121, 21, $ES_PASSWORD)
$newpassinput2 = GUICtrlCreateInput("", 136, 152, 121, 21, $ES_PASSWORD)
$newb1 = GUICtrlCreateButton("确认", 40, 192, 75, 25, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$newb2 = GUICtrlCreateButton("取消", 192, 192, 75, 25, 0)
$newchangeLabel1 = GUICtrlCreateLabel("用户编码：", 51, 32, 85, 24)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
$newchangeLabel2 = GUICtrlCreateLabel("用户姓名：", 51, 72, 85, 24)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
$newchangeLabel3 = GUICtrlCreateLabel("输入密码：", 51, 112, 85, 24)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
$newchangeLabel4 = GUICtrlCreateLabel("确认密码：", 51, 152, 85, 24)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUISwitch($newForm)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "Gui")
GUICtrlSetOnEvent($newb1, "Gui")
GUICtrlSetOnEvent($newb2, "Gui")
EndFunc ;==>NewUser
;绘制系统设置窗口 end
$YLBD = GUICreate("营业明细报表", 815, 574, 270, 130)
GUICtrlCreateLabel("营业明细报表", 16, 26, 106, 24)
GUICtrlSetFont(-1, 12, 800, 4, "MS Sans Serif")
$Date1 = GUICtrlCreateDate(_NowCalcDate(), 224, 24, 85, 22, $WS_TABSTOP)
$Date2 = GUICtrlCreateDate(_NowCalcDate(), 352, 24, 85, 22, $WS_TABSTOP)
$Group1 = GUICtrlCreateGroup("", 8, 72, 113, 489)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$Radio1 = GUICtrlCreateRadio("已结账单", 24, 104, 89, 25)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("未结账单", 24, 136, 81, 25)
$Radio3 = GUICtrlCreateRadio("退单账单", 24, 168, 81, 25)
$Radio4 = GUICtrlCreateRadio("免费账单", 24, 200, 89, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Bt1 = GUICtrlCreateButton("确 定", 608, 16, 89, 33)
$Bt2 = GUICtrlCreateButton("退 出", 712, 16, 89, 33)
$Label2 = GUICtrlCreateLabel("查询日期：", 152, 30, 64, 17)
$Label3 = GUICtrlCreateLabel("至：", 320, 30, 28, 17)
$Label4 = GUICtrlCreateLabel("", 0, 64, 813, 3, $SS_SUNKEN)
$YlList = GUICtrlCreateListView("手牌号 | 账单号| 消费日期 | 消费金额 | 实收金额 | 收款人 | 备注信息", 128, 80, 673, 481)
_GUICtrlListView_SetUnicodeFormat($YlList, False)
GUISetOnEvent($GUI_EVENT_CLOSE, "Gui")
GUICtrlSetOnEvent($Bt1, "Gui")
GUICtrlSetOnEvent($Bt2, "Gui")
$Gkkt = GUICreate("顾客开台", 514, 296, -1,-1)
$Tab1 = GUICtrlCreateTab(-1, -1, 520, 261)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("")
$Group1 = GUICtrlCreateGroup("入场开单", 8, 8, 498, 236)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$sph = GUICtrlCreateLabel("手牌号码：", 24, 48, 69, 17)
$Hidesph = GUICtrlCreateInput("hidesph", 224, 48, 97, 21)
GUICtrlSetState(-1, $GUI_HIDE)
$yj = GUICtrlCreateLabel("押金金额：", 24, 80, 69, 17)
$Showsph = GUICtrlCreateLabel("", 96, 48, 100, 17)
$yjinput = GUICtrlCreateInput("50.00", 104, 80, 217, 21)
$bz = GUICtrlCreateLabel("备注信息：", 24, 120, 69, 17)
$BZEdit = GUICtrlCreateEdit("", 104, 120, 385, 105, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GkBt1 = GUICtrlCreateButton("确 定", 312, 264, 90, 25)
$GkBt2 = GUICtrlCreateButton("取消", 416, 264, 90, 25)
GUISetOnEvent($GUI_EVENT_CLOSE, "Gui")
GUICtrlSetOnEvent($GkBt1, "Gui")
GUICtrlSetOnEvent($GkBt2, "Gui")
GUICtrlSetOnEvent($yjinput, "Gui")
Func HspForm()
$HspForm = GUICreate("更换手牌", 299, 137, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS), "", $Form1)
GUICtrlCreateLabel("原手牌：", 56, 32, 52, 17)
$ysp = GUICtrlCreateInput("", 112, 24, 129, 21, $ES_READONLY)
GUICtrlCreateLabel("更换为：", 56, 64, 52, 17)
$xsp = GUICtrlCreateInput("", 112, 56, 129, 21)
$hsp1 = GUICtrlCreateButton("&确定", 96, 96, 65, 25)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$hsp2 = GUICtrlCreateButton("&取消", 176, 96, 65, 25)
GUISwitch($HspForm)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "Gui")
GUICtrlSetOnEvent($hsp1, "Gui")
GUICtrlSetOnEvent($hsp2, "Gui")
EndFunc ;==>HspForm
While 1
If $Pause = True Then ExitLoop
Autojf()
_ReduceMemory(@AutoItPID)
Sleep(18000)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
EndSwitch
WEnd
以下是包含进来的 FUNC.AU3Func jf()
_GUICtrlListView_DeleteAllItems($ListView2)
$mw = ".00"
$jfconn = ObjCreate("ADODB.Connection")
If @error Then
MsgBox(48, "程序遇到严重错误", "不能与数据库创建连接，数据库引挚被破坏。")
Exit
Else
$jfconn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=adminxpdnhp;Data Source=" & $db_path)
EndIf
$jfRS = ObjCreate("ADODB.Recordset")
$jfRS.ActiveConnection = $jfconn
$sql = "Select * From Content where chk=0"
$jfRS.Open($sql)
While Not $jfRS.eof And Not $jfRS.bof
If @error = 1 Then ExitLoop
$item = $jfRS.Fields(1).value
$dh = $jfRS.Fields(4).value
$starttime = $jfRS.Fields(5).value
$losttime = _DateDiff("n", $starttime, _NowCalc())
;====================收费价格调整部分开始===========================
If $losttime < 60 Then $money = $Q & $mw
If $losttime > (65) And $losttime < (95) Then $money = 15 & $mw
If $losttime > (95) And $losttime < (125) Then $money = 20 & $mw
If $losttime > (125) And $losttime < (160) Then $money = 25 & $mw
If $losttime > (160) Then $money = 30 & $mw
$showtime = _Format_Time($losttime)
;dim $jshs
;$jshs=0
;if $losttime>=60 then$jshs += 1
;====================收费价格调整部分===============================
_GUICtrlListView_BeginUpdate($ListView2)
GUICtrlCreateListViewItem($item & "|" & $dh & "|" & $starttime & "|" & $showtime & "|" & $money & "|" & $manager, $ListView2)
_GUICtrlListView_EndUpdate($ListView2)
$jfconn.Execute("Update Content set xf='" & $money & "' where DH='" & $dh & "'")
$jfRS.movenext
WEnd
$jfRS.close()
$jfconn.close()
EndFunc ;==>jf
;==============================自动刷新计费函数=================================
;===========为了在循环时，手动刷新时生产错误，建立相同的数据库连接。============
Func autojf()
$autoconn = ObjCreate("ADODB.Connection")
If @error Then
MsgBox(48, "程序遇到严重错误", "不能与数据库创建连接，数据库引挚被破坏。")
Exit
Else
$autoconn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=adminxpdnhp;Data Source=" & $db_path)
EndIf
$AutoRS = ObjCreate("ADODB.Recordset")
$AutoRS.ActiveConnection = $autoconn
$AutoRS.Open("Select * From sys")
$Q = $AutoRS.fields(1).value
$S = $AutoRS.fields(2).value
$Z = $AutoRS.fields(3).value
$AutoRS.close
_GUICtrlListView_DeleteAllItems($ListView2)
$mw = ".00"
;读取数据库，筛选没有结账的记录，计算出所用时间
;$hs = _GUICtrlListView_GetItemCount($ListView2) ;读取列表框总行数
;For $i = 0 To $hs
;$k = _GUICtrlListView_GetItemText($ListView2, $i, 1) ;获取$i行0列的值
;$j = _GUICtrlListView_GetItemText($ListView2, $i, 4) ;获取$i行3列的值
;Next
$sql = "Select * From Content where chk=0"
$AutoRS = ObjCreate("ADODB.Recordset")
$AutoRS.ActiveConnection = $autoconn
$AutoRS.Open($sql)
While Not $AutoRS.eof And Not $AutoRS.bof
If @error = 1 Then ExitLoop
$item = $AutoRS.Fields(1).value
$dh = $AutoRS.Fields(4).value
$starttime = $AutoRS.Fields(5).value
$losttime = _DateDiff("n", $starttime, _NowCalc())
$showtime = _Format_Time($losttime)
;====================收费价格调整部分开始===========================
If $losttime < 60 Then $money = $Q & $mw
If $losttime > (60 + $S) And $losttime < (90 + $S) Then $money = 15 & $mw
If $losttime > (90 + $S) And $losttime < (120 + $S) Then $money = 20 & $mw
If $losttime > (120 + $S) And $losttime < (155 + $S) Then $money = 25 & $mw
If $losttime > (155 + $S) Then $money = 30 & $mw
;====================收费价格调整部分===============================
_GUICtrlListView_BeginUpdate($ListView2)
GUICtrlCreateListViewItem($item & "|" & $dh & "|" & $starttime & "|" & $showtime & "|" & $money & "|" & $manager, $ListView2)
_GUICtrlListView_EndUpdate($ListView2)
$autoconn.Execute("Update Content set xf='" & $money & "' where DH='" & $dh & "'")
$AutoRS.movenext
WEnd
$AutoRS.close
$autoconn.close
EndFunc ;==>autojf
;=======================结帐处理函数======================================
Func Quit()
$index = _GUICtrlListView_GetSelectedIndices($ListView1)
If $index <> "" Then
$text = _GUICtrlListView_GetItemText($ListView1, Int($index))
_Conndb()
$sql = "Select * From box where title = " & "'" & $text & "'";根据点击的手牌号打开表.
$RS.Open($sql)
$dh = $RS.fields(3).value ;从表中获取该手牌的账单号
$chk = $RS.fields(4).value ;从表中获取该手牌的状态(即占用或者空闲状态).
_closedb()
If $chk = True Then ;True 或者 1 为占用状态,表示是已开出手牌可以结账.
_Conndb()
$sql = "Select * From Content where DH= " & "'" & $dh & "' and chk=False" ;chk表示该单号的手牌未结账.
$RS.Open($sql)
$kryj = $RS.Fields(10).value
$xf = $RS.Fields(11).value
$starttime = $RS.Fields(5).value
$xftime = _Format_Time(_DateDiff("n", $starttime, _NowCalc()))
_Closedb()
$tip = " (为负数，表示不用找钱．)"
GUICtrlSetColor($tip, 0xff0000)
GUICtrlSetState($account, $GUI_DEFBUTTON)
GUICtrlSetData($ZD, $dh);把得到的账单号快递给子窗口的标签,以便显示.
GUICtrlSetData($showxf, $xf) ;把读取出的消费金额传递给结账窗口的标签,以便显示
GUICtrlSetData($HideZD, $dh);把得到的账单号快递给子窗口的隐藏域,以便其它按钮获取此参数
GUICtrlSetData($HideTitle, $text);将选择的手牌号传递给子窗口.
GUICtrlSetData($HideXF, $xf) ;将获取到的消费传递给隐藏域.
GUICtrlSetData($Hidexftime, $xftime)
GUICtrlSetData($ZL, $kryj - $xf & ".00" & $tip)
GUICtrlSetData($kryjs, $kryj)
GUICtrlSetData($hideZL, $kryj - $xf & ".00")
GUICtrlSetData($ss, $xf)
GUICtrlSetData($zero, $kryj)
GUISwitch($Outin_form)
GUISetState(@SW_SHOW)
Else
MsgBox(64, "提示", "该手牌处于空闲状态,不能进行出场操作...")
EndIf
Else
MsgBox(64, "提示", "没有选择任何手牌,不能进行出场操作...")
EndIf
EndFunc ;==>Quit
;===============================设置列表框函数==========================
Func _Setlist($listnum, $From);
Local $i
$i = 0
GUICtrlSendMsg($listnum, $LVM_DELETEALLITEMS, 0, 0)
GUICtrlSendMsg($listnum, $LVN_ODCACHEHINT, 0, 0)
$hImage = _GUIImageList_Create(32, 32, 5, 3) ;图标显示大小
_Conndb()
$RS.Open("Select * From box order by ID asc")
GUISetState(@SW_LOCK, $From)
While Not $RS.eof And Not $RS.bof
If @error = 1 Then ExitLoop
$title = $RS.Fields(1).value
$icon = $RS.Fields(2).value
$chk = $RS.fields(4).value
_GUICtrlListView_BeginUpdate($listnum)
_GUICtrlListView_InsertItem($listnum, $title, -1, $i)
_GUICtrlListView_EndUpdate($listnum)
If $chk = True Then
_GUIImageList_AddIcon($hImage, $icon, 1, True)
Else
_GUIImageList_AddIcon($hImage, $icon, 0, True)
EndIf
$i += 1
$RS.movenext
WEnd
_GUICtrlListView_SetImageList($listnum, $hImage, 0)
; _GUICtrlListView_Arrange ($listnum)
_Closedb()
GUISetState(@SW_UNLOCK, $From)
EndFunc ;==>_Setlist
;=====================手牌状态显示函数=====================================
Func SetL2()
$hImage = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImage, @SystemDir & "\0.dll", 110)
_GUICtrlListView_SetImageList($L2, $hImage, 1)
_GUICtrlListView_DeleteAllItems($L2)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L2)
GUICtrlCreateListViewItem("手牌总数：" & _line("count"), $L2)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L2)
GUICtrlCreateListViewItem("占用手牌：" & _line("online"), $L2)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L2)
GUICtrlCreateListViewItem("空闲手牌：" & _line("offline"), $L2)
EndFunc ;==>SetL2
;=====================注册信息框处理函数===================================
Func Regbox()
$GetTitel = Get_From_title()
$hImage = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImage, @SystemDir & "\0.dll", 110)
_GUICtrlListView_SetImageList($L3, $hImage, 1)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L3)
$reg1 = GUICtrlCreateListViewItem("授权使用：" & $GetTitel, $L3)
GUICtrlSetColor($reg1, 0x400080)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L3)
GUICtrlCreateListViewItem("状态：已注册", $L3)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L3)
GUICtrlCreateListViewItem("亮点科技提供技术支持", $L3)
EndFunc ;==>Regbox
;=======================从数据库获取主窗口标题－－－显示客户Oeminfo========
Func Get_From_title() ;
_Conndb()
$RS.Open("Select * From Reg")
While Not $RS.eof And Not $RS.bof
If @error = 1 Then ExitLoop
$From_title = $RS.Fields(1).value
$RS.movenext
WEnd
_Closedb()
Return $From_title
EndFunc ;==>Get_From_title
Func Get_Date()
Return StringReplace(_NowCalcDate(), "/", "-")
EndFunc ;==>Get_Date
;===========================判断用户登录与否函数=======================
Func _Enter($user, $login)
Switch $login
Case0
_Conndb()
$conn.Execute("update Manage set chk='0' where Num =" & $user)
_CloseDb()
Case 1
_Conndb()
$conn.Execute("update Manage set chk='1' where Num =" & $user)
_CloseDb()
EndSwitch
EndFunc ;==>_Enter
;==============================开场按钮及双击，单击动作================
Func _in($DBLCLK = "")
$index = _GUICtrlListView_GetSelectedIndices($ListView1)
If $index <> "" Then
$text = _GUICtrlListView_GetItemText($ListView1, Int($index))
_Conndb()
$sql = "Select * From box where title = " & "'" & $text & "'"
$RS.Open($sql)
$dh = $RS.fields(3).value
$chk = $RS.fields(4).value
_closedb()
If $chk = True Then ;表示此手牌开出,为占用状态,可结帐.
If $DBLCLK = "1" Then ;表示双击手牌.
Quit() ;双击占用手牌,执行结账函数.
Else
MsgBox(64, "提示", "该手牌处于占用状态.不能进行开场操作...")
EndIf
Else ;否则手牌未开,为空闲状态,跳出开牌窗口.
GUICtrlSetData($Showsph, $text)
GUICtrlSetColor($Showsph, 0xff0000)
GUICtrlSetFont($Showsph, 8, 800, 0, "MS Sans Serif")
GUICtrlSetData($Hidesph, $text)
GUISwitch($Gkkt)
GUISetState(@SW_SHOW)
EndIf
Else
MsgBox(64, "提示", "没有选择任何手牌,不能使用...")
EndIf
EndFunc ;==>_in
;==============================返回当前登录ID的用户姓名=================
Func Man($num)
Dim $manager, $numid
_Conndb()
$sql = "Select * From Manage"
$RS.Open($sql)
While Not $RS.bof And Not $RS.eof
If @error Then ExitLoop
$scan = $RS.Fields(4).value
If $scan = True Then
$numid = $RS.Fields(1).value
$manager = $RS.Fields(2).value
EndIf
$RS.movenext
WEnd
_Closedb()
If $num = "man" Then Return $manager
If $num = "num" Then Return $numid
EndFunc ;==>Man
Func _Getbc($u)
_Conndb()
$RS.Open("Select * from Manage where chk=True And Num=" & $u)
$getbc = $RS.Fields(5).value
Return $getbc
_closedb()
EndFunc ;==>_Getbc
;==========================计算总手牌，及占用，空闲的状态===============
Func _line($chkonline)
_Conndb()
$RS.Open("Select " & $T & " From box")
$count = 0
$online = 0
$offline = 0
While Not $RS.eof And Not $RS.bof
If @error = 1 Then ExitLoop
$chk = $RS.fields(4).value
If $chk = True Then
$online = $online + 1
Else
$offline = $offline + 1
EndIf
$count = $count + 1
$RS.movenext
WEnd
_Closedb()
Switch $chkonline
Case "count" ;返回总手牌数
Return $count
Case "online" ;返回占用手牌数
Return $online
Case "offline" ;返回空闲手牌数
Return $offline
EndSwitch
EndFunc ;==>_line
Func BC($u) ;创建班次
Return StringReplace(_NowCalcDate(), "/", "") & "-" & $u
EndFunc ;==>BC
;=======================以下是修改用户密码函数========================
Func _changpass($Uid)
$passa = GUICtrlRead($fr5_in1)
$passb = GUICtrlRead($fr5_in2)
$passc = GUICtrlRead($fr5_in3)
_Conndb()
$sql = "Select * From Manage where Num=" & $Uid
$RS.Open($sql)
$oldpass = $RS.fields(3).value
_Closedb()
Select
Case $oldpass = MD5_String($passa)
If Not ($passb = $passc) Then
MsgBox(48, "口令更改", "输入的新口令不一致，请检测。")
GUICtrlSetState($fr5_in2, $GUI_FOCUS)
ElseIf $passb = "" Or $passc = "" Then
MsgBox(48, "口令更改", "新口令不能为空,请重新输入。")
GUICtrlSetState($fr5_in2, $GUI_FOCUS)
Else
_Conndb()
$conn.Execute("update Manage set Pass = '" & MD5_String($passb) & "' where Num=" & $Uid)
_CloseDb()
MsgBox(48, "口令更改", "口令修改成功。")
GUIDelete($pass_from)
EndIf
Case Else
MsgBox(48, "口令更改", "原始口令输入有误。")
EndSelect
EndFunc ;==>_changpass
;======================= 以下为数据库建立连接与关闭连接函数 =============
Func _Conndb()
$conn = ObjCreate("ADODB.Connection")
If @error Then
MsgBox(48, "程序遇到严重错误", "不能与数据库创建连接，数据库引挚被破坏。")
Exit
Else
$conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=adminxpdnhp;Data Source=" & $db_path)
$RS = ObjCreate("ADODB.Recordset")
$RS.ActiveConnection = $conn
EndIf
EndFunc ;==>_Conndb
Func _CloseDb()
$conn.Close
EndFunc ;==>_CloseDb
Func date()
_GUICtrlStatusBar_SetText($StatusBar1, @TAB & @TAB & "系统时间:" & _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC & " ", 1)
EndFunc ;==>date
;==============================判断列表双击，单击函数========================
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $index, $text, $path
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1);检查一个变量=GUI返回空间句柄
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam);创建一个数据结构，ilparam为变量
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"));返回数据结构
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom");返回数据结构
$iCode = DllStructGetData($tNMHDR, "Code");返回数据结构
Switch $hWndFrom;Switch...Case...EndSwitch ，hwndfrom为表达式
Case $hWndListView ;值
Switch $iCode; icode为表达式
Case $NM_DBLCLK ;值
_in("1")
Case $NM_CLICK ; The control has received the input focus
$index = _GUICtrlListView_GetSelectedIndices($ListView1);检索的选定项的索引
If $index <> "" Then
$text = _GUICtrlListView_GetItemText($ListView1, Int($index));返回一项或子项的文本
_Conndb()
$RS.Open("Select " & $T & " From box where title = " & "'" & $text & "'")
$ddh = $RS.fields(3).value
$chk = $RS.fields(4).value
_closedb()
If $chk = True Then
_Conndb()
$sql = "Select * From Content where chk=0 and DH=" & "'" & $ddh & "'"
$RS.Open($sql)
If Not $RS.BOF And Not $RS.EOF Then
$item = $RS.Fields(3).value
$starttime = $RS.Fields(5).value
$YJS = $RS.Fields(10).value
$money = $RS.Fields(11).value
$losttime = _DateDiff("n", $starttime, _NowCalc())
_Closedb()
$showtime = _Format_Time($losttime)
GUICtrlSendMsg($L1, $LVM_DELETEALLITEMS, 0, 0)
GUICtrlCreateListViewItem("", $L1)
$fontcolor = GUICtrlCreateListViewItem("手牌号：" & $text, $L1)
GUICtrlSetColor($fontcolor, 0xFF0000)
GUICtrlCreateListViewItem("", $L1)
GUICtrlCreateListViewItem("进场时间：" & $starttime, $L1)
GUICtrlCreateListViewItem("", $L1)
GUICtrlCreateListViewItem("已交押金：" & $YJS, $L1)
GUICtrlCreateListViewItem("", $L1)
GUICtrlCreateListViewItem("消费时间：" & $showtime, $L1)
GUICtrlCreateListViewItem("", $L1)
GUICtrlCreateListViewItem("消费费用：" & $money, $L1)
GUICtrlCreateListViewItem("", $L1)
EndIf
Else
GUICtrlSendMsg($L1, $LVM_DELETEALLITEMS, 0, 0)
$o = ""
For $i = 1 To 5
GUICtrlCreateListViewItem("", $L1)
Next
$spinfo = GUICtrlCreateListViewItem(" 无此手牌信息(未开台)", $L1)
GUICtrlSetColor($spinfo, 0x1f0fff)
EndIf
EndIf
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _ReduceMemory($i_PID = -1) ;释放本程序占用的内存
If $i_PID <> -1 Then
Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle)
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle)
Else
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
EndIf
Return $ai_Return
EndFunc ;==>_ReduceMemory
;==============================分钟换算成小时函数===============================
Func _Format_Time($Time)
Local $Return = "", $Min = 0, $Hour = 0
$Time = StringReplace($Time, " ", "")
If $Time < 60 Then
$Return = "0小时" & _Blen_Time($Time) & "分"
ElseIf $Time >= 60 Then
While 1
If $Time < 60 Then ExitLoop
$Hour += 1
$Time -= 60
WEnd
$Return = _Blen_Time($Hour) & "小时" & _Blen_Time($Time) & "分"
EndIf
Return $Return
EndFunc ;==>_Format_Time
Func _Blen_Time($String)
If StringLen($String) > 1 Then Return $String
Return "0" & $String
EndFunc ;==>_Blen_Time
Func _hidekj()
GUICtrlSetState(-1, $GUI_HIDE)
EndFunc ;==>_hidekj
Func _Exitsubfrom()
GUISetState(@SW_HIDE, @GUI_WinHandle)
_ReduceMemory(@AutoItPID)
EndFunc ;==>_Exitsubfrom
Func backup()
$Dataform = GUICreate("数据备份", 340, 67, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS), -1, $Form1)
$Progress1 = GUICtrlCreateProgress(40, 24, 257, 17, $PBS_SMOOTH)
GUISetState(@SW_SHOW)
For $i = 0 To 100
Sleep(10)
GUICtrlSetData($Progress1, $i)
Next
GUIDelete($Dataform)
$time1 = _NowCalcDate()
$time2 = _NowTime()
$timearray1 = StringSplit($time1, "/")
$timearray2 = StringSplit($time2, ":")
$Time = $timearray1 & $timearray1 & $timearray1 & $timearray2 & $timearray2
;MsgBox(0,0,$time)
FileCopy($db_path, @ScriptDir & "\Databak\" & $Time & "\" & $db_path, 8)
MsgBox(64, "提示", "数据库已被备份到Databak目录下的子目录" & $Time & "中.")
GUICtrlSetData($rescombo, "")
Setcombo()
EndFunc ;==>backup
Func Setcombo()
$resb = ""
$bdir = ""
$a = Seek(@ScriptDir & "\Databak")
$dirc = StringSplit($a, ";")
Dim $dirtemp[$dirc + 1]
For $resi = 1 To $dirc
;~ MsgBox(0,0,$dirc[$resi])
$dirtemp[$resi] = StringMid($dirc[$resi], 1, 4) & "年" & StringMid($dirc[$resi], 5, 2) & "月" & StringMid($dirc[$resi], 7, 2) & "日" & StringMid($dirc[$resi], 9, 2) & "时" & StringRight($dirc[$resi], 2) & "分"
If $resb = "" Then
$resb = $dirtemp[$resi]
Else
$resb = $resb & "|" & $dirtemp[$resi]
EndIf
Next
GUICtrlSetData($rescombo, $resb, $dirtemp)
EndFunc ;==>Setcombo
Func restore()
$resb = ""
$bdir = ""
$a = Seek(@ScriptDir & "\Databak")
$dirc = StringSplit($a, ";")
Dim $dirtemp[$dirc + 1]
For $resi = 1 To $dirc
$dirtemp[$resi] = StringMid($dirc[$resi], 1, 4) & "年" & StringMid($dirc[$resi], 5, 2) & "月" & StringMid($dirc[$resi], 7, 2) & "日" & StringMid($dirc[$resi], 9, 2) & "时" & StringRight($dirc[$resi], 2) & "分"
If $resb = "" Then
$resb = $dirtemp[$resi]
Else
$resb = $resb & "|" & $dirtemp[$resi]
EndIf
Next
If $resb = "年月日时分" Then
MsgBox(16, "提示", "没有备份数据文件可被恢复。")
ElseIf GUICtrlRead($rescombo) = "" Then
MsgBox(16, "错误", "没有备份数据文件可被恢复.")
Else
$Datarestore = GUICreate("数据恢复", 340, 67, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS), -1, $Form1)
$Progress1 = GUICtrlCreateProgress(40, 24, 257, 17, $PBS_SMOOTH)
GUISetState(@SW_SHOW)
For $i = 0 To 100
Sleep(10)
GUICtrlSetData($Progress1, $i)
Next
GUIDelete($Datarestore)
$bdir &= StringMid(GUICtrlRead($rescombo), 1, 4) & StringMid(GUICtrlRead($rescombo), 6, 2) & StringMid(GUICtrlRead($rescombo), 9, 2) & StringMid(GUICtrlRead($rescombo), 12, 2) & StringMid(GUICtrlRead($rescombo), 15, 2)
FileCopy(@ScriptDir & "\Databak\" & $bdir & "\" & $db_path, @ScriptDir & "\" & $db_path, 9)
MsgBox(64, "提示", "恢复成功。")
EndIf
EndFunc ;==>restore
Func Seek($Dir)
$total = ""
If StringRight($Dir, 1) <> "\" Then $Dir = $Dir & "\";
$search = FileFindFirstFile($Dir & "*.*")
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
If FileGetAttrib($Dir & $file) = "D" Then;
If $total = "" Then
$total = $file
Else
$total = $total & ";" & $file
EndIf
EndIf
WEnd
Return $total
FileClose($search)
EndFunc ;==>Seek
Func check()
GUICtrlSetState($Input1, $GUI_FOCUS)
EndFunc ;==>check
Func loaduser()
_Conndb()
$sql = "Select * From Manage"
$RS.Open($sql)
While Not $RS.bof And Not $RS.eof
If @error Then ExitLoop
$pd = $RS.fields(4).value
If $pd = True Then
GUICtrlSetData($numInput, $RS.fields(1).value)
GUICtrlSetData($userInput, $RS.fields(2).value)
EndIf
$RS.movenext
WEnd
_Closedb()
EndFunc ;==>loaduser
Func _exit()
GUISetState(@SW_HIDE) ;这里先将界面隐藏起来，因为要先关闭皮肤后才关闭软件，所以隐藏界面后关闭皮肤的话就不会看到没有皮肤的界面了。
DllCall($Dll_, "int", "USkinRemoveSkin") ;这里是关闭皮肤
DllCall($Dll_, "int", "USkinExit") ;这里是退出皮肤调用的DLL
DllClose($Dll_) ;关闭DLL文件调用
Exit ;退出脚本（关闭软件）
EndFunc ;==>_exit 本帖最后由 Netfox 于 2009-12-31 10:40 编辑
Func delsetsys()
GUIDelete($Setsys_from)
_ReduceMemory(@AutoItPID)
EndFunc ;==>delsetsys
Func ShowUser()
GUICtrlSendMsg($userlist1, $LVM_DELETEALLITEMS, 0, 0)
_Conndb()
$RS.Open("Select * From Manage order by Num ASC")
While Not $RS.bof And Not $RS.eof
If @error Then ExitLoop
GUICtrlCreateListViewItem($RS.fields(1).value & "|" & $RS.fields(2).value & "|*********", $userlist1)
$RS.movenext
WEnd
_Closedb()
_ReduceMemory(@AutoItPID)
EndFunc ;==>ShowUser
Func MD5_String($String)
Local $md5 = 'Private Const BITS_TO_A_BYTE = 8' & @CRLF
$md5 &= 'Private Const BYTES_TO_A_WORD = 4' & @CRLF
$md5 &= 'Private Const BITS_TO_A_WORD = 32' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private m_lOnBits(30)' & @CRLF
$md5 &= 'Private m_l2Power(30)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' m_lOnBits(0) = CLng(1)' & @CRLF
$md5 &= ' m_lOnBits(1) = CLng(3)' & @CRLF
$md5 &= ' m_lOnBits(2) = CLng(7)' & @CRLF
$md5 &= ' m_lOnBits(3) = CLng(15)' & @CRLF
$md5 &= ' m_lOnBits(4) = CLng(31)' & @CRLF
$md5 &= ' m_lOnBits(5) = CLng(63)' & @CRLF
$md5 &= ' m_lOnBits(6) = CLng(127)' & @CRLF
$md5 &= ' m_lOnBits(7) = CLng(255)' & @CRLF
$md5 &= ' m_lOnBits(8) = CLng(511)' & @CRLF
$md5 &= ' m_lOnBits(9) = CLng(1023)' & @CRLF
$md5 &= ' m_lOnBits(10) = CLng(2047)' & @CRLF
$md5 &= ' m_lOnBits(11) = CLng(4095)' & @CRLF
$md5 &= ' m_lOnBits(12) = CLng(8191)' & @CRLF
$md5 &= ' m_lOnBits(13) = CLng(16383)' & @CRLF
$md5 &= ' m_lOnBits(14) = CLng(32767)' & @CRLF
$md5 &= ' m_lOnBits(15) = CLng(65535)' & @CRLF
$md5 &= ' m_lOnBits(16) = CLng(131071)' & @CRLF
$md5 &= ' m_lOnBits(17) = CLng(262143)' & @CRLF
$md5 &= ' m_lOnBits(18) = CLng(524287)' & @CRLF
$md5 &= ' m_lOnBits(19) = CLng(1048575)' & @CRLF
$md5 &= ' m_lOnBits(20) = CLng(2097151)' & @CRLF
$md5 &= ' m_lOnBits(21) = CLng(4194303)' & @CRLF
$md5 &= ' m_lOnBits(22) = CLng(8388607)' & @CRLF
$md5 &= ' m_lOnBits(23) = CLng(16777215)' & @CRLF
$md5 &= ' m_lOnBits(24) = CLng(33554431)' & @CRLF
$md5 &= ' m_lOnBits(25) = CLng(67108863)' & @CRLF
$md5 &= ' m_lOnBits(26) = CLng(134217727)' & @CRLF
$md5 &= ' m_lOnBits(27) = CLng(268435455)' & @CRLF
$md5 &= ' m_lOnBits(28) = CLng(536870911)' & @CRLF
$md5 &= ' m_lOnBits(29) = CLng(1073741823)' & @CRLF
$md5 &= ' m_lOnBits(30) = CLng(2147483647)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' m_l2Power(0) = CLng(1)' & @CRLF
$md5 &= ' m_l2Power(1) = CLng(2)' & @CRLF
$md5 &= ' m_l2Power(2) = CLng(4)' & @CRLF
$md5 &= ' m_l2Power(3) = CLng(8)' & @CRLF
$md5 &= ' m_l2Power(4) = CLng(16)' & @CRLF
$md5 &= ' m_l2Power(5) = CLng(32)' & @CRLF
$md5 &= ' m_l2Power(6) = CLng(64)' & @CRLF
$md5 &= ' m_l2Power(7) = CLng(128)' & @CRLF
$md5 &= ' m_l2Power(8) = CLng(256)' & @CRLF
$md5 &= ' m_l2Power(9) = CLng(512)' & @CRLF
$md5 &= ' m_l2Power(10) = CLng(1024)' & @CRLF
$md5 &= ' m_l2Power(11) = CLng(2048)' & @CRLF
$md5 &= ' m_l2Power(12) = CLng(4096)' & @CRLF
$md5 &= ' m_l2Power(13) = CLng(8192)' & @CRLF
$md5 &= ' m_l2Power(14) = CLng(16384)' & @CRLF
$md5 &= ' m_l2Power(15) = CLng(32768)' & @CRLF
$md5 &= ' m_l2Power(16) = CLng(65536)' & @CRLF
$md5 &= ' m_l2Power(17) = CLng(131072)' & @CRLF
$md5 &= ' m_l2Power(18) = CLng(262144)' & @CRLF
$md5 &= ' m_l2Power(19) = CLng(524288)' & @CRLF
$md5 &= ' m_l2Power(20) = CLng(1048576)' & @CRLF
$md5 &= ' m_l2Power(21) = CLng(2097152)' & @CRLF
$md5 &= ' m_l2Power(22) = CLng(4194304)' & @CRLF
$md5 &= ' m_l2Power(23) = CLng(8388608)' & @CRLF
$md5 &= ' m_l2Power(24) = CLng(16777216)' & @CRLF
$md5 &= ' m_l2Power(25) = CLng(33554432)' & @CRLF
$md5 &= ' m_l2Power(26) = CLng(67108864)' & @CRLF
$md5 &= ' m_l2Power(27) = CLng(134217728)' & @CRLF
$md5 &= ' m_l2Power(28) = CLng(268435456)' & @CRLF
$md5 &= ' m_l2Power(29) = CLng(536870912)' & @CRLF
$md5 &= ' m_l2Power(30) = CLng(1073741824)' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function LShift(lValue, iShiftBits)' & @CRLF
$md5 &= ' If iShiftBits = 0 Then' & @CRLF
$md5 &= ' LShift = lValue' & @CRLF
$md5 &= ' Exit Function' & @CRLF
$md5 &= ' ElseIf iShiftBits = 31 Then' & @CRLF
$md5 &= ' If lValue And 1 Then' & @CRLF
$md5 &= ' LShift = &H80000000' & @CRLF
$md5 &= ' Else' & @CRLF
$md5 &= ' LShift = 0' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= ' Exit Function' & @CRLF
$md5 &= ' ElseIf iShiftBits < 0 Or iShiftBits > 31 Then' & @CRLF
$md5 &= ' Err.Raise 6' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' If (lValue And m_l2Power(31 - iShiftBits)) Then' & @CRLF
$md5 &= ' LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000' & @CRLF
$md5 &= ' Else' & @CRLF
$md5 &= ' LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function RShift(lValue, iShiftBits)' & @CRLF
$md5 &= ' If iShiftBits = 0 Then' & @CRLF
$md5 &= ' RShift = lValue' & @CRLF
$md5 &= ' Exit Function' & @CRLF
$md5 &= ' ElseIf iShiftBits = 31 Then' & @CRLF
$md5 &= ' If lValue And &H80000000 Then' & @CRLF
$md5 &= ' RShift = 1' & @CRLF
$md5 &= ' Else' & @CRLF
$md5 &= ' RShift = 0' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= ' Exit Function' & @CRLF
$md5 &= ' ElseIf iShiftBits < 0 Or iShiftBits > 31 Then' & @CRLF
$md5 &= ' Err.Raise 6' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' If (lValue And &H80000000) Then' & @CRLF
$md5 &= ' RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function RotateLeft(lValue, iShiftBits)' & @CRLF
$md5 &= ' RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function AddUnsigned(lX, lY)' & @CRLF
$md5 &= ' Dim lX4' & @CRLF
$md5 &= ' Dim lY4' & @CRLF
$md5 &= ' Dim lX8' & @CRLF
$md5 &= ' Dim lY8' & @CRLF
$md5 &= ' Dim lResult' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' lX8 = lX And &H80000000' & @CRLF
$md5 &= ' lY8 = lY And &H80000000' & @CRLF
$md5 &= ' lX4 = lX And &H40000000' & @CRLF
$md5 &= ' lY4 = lY And &H40000000' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' If lX4 And lY4 Then' & @CRLF
$md5 &= ' lResult = lResult Xor &H80000000 Xor lX8 Xor lY8' & @CRLF
$md5 &= ' ElseIf lX4 Or lY4 Then' & @CRLF
$md5 &= ' If lResult And &H40000000 Then' & @CRLF
$md5 &= ' lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8' & @CRLF
$md5 &= ' Else' & @CRLF
$md5 &= ' lResult = lResult Xor &H40000000 Xor lX8 Xor lY8' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= ' Else' & @CRLF
$md5 &= ' lResult = lResult Xor lX8 Xor lY8' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' AddUnsigned = lResult' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function F(x, y, z)' & @CRLF
$md5 &= ' F = (x And y) Or ((Not x) And z)' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function G(x, y, z)' & @CRLF
$md5 &= ' G = (x And z) Or (y And (Not z))' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function H(x, y, z)' & @CRLF
$md5 &= ' H = (x Xor y Xor z)' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function I(x, y, z)' & @CRLF
$md5 &= ' I = (y Xor (x Or (Not z)))' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Sub FF(a, b, c, d, x, s, ac)' & @CRLF
$md5 &= ' a = AddUnsigned(a, AddUnsigned(AddUnsigned(F(b, c, d), x), ac))' & @CRLF
$md5 &= ' a = RotateLeft(a, s)' & @CRLF
$md5 &= ' a = AddUnsigned(a, b)' & @CRLF
$md5 &= 'End Sub' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Sub GG(a, b, c, d, x, s, ac)' & @CRLF
$md5 &= ' a = AddUnsigned(a, AddUnsigned(AddUnsigned(G(b, c, d), x), ac))' & @CRLF
$md5 &= ' a = RotateLeft(a, s)' & @CRLF
$md5 &= ' a = AddUnsigned(a, b)' & @CRLF
$md5 &= 'End Sub' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Sub HH(a, b, c, d, x, s, ac)' & @CRLF
$md5 &= ' a = AddUnsigned(a, AddUnsigned(AddUnsigned(H(b, c, d), x), ac))' & @CRLF
$md5 &= ' a = RotateLeft(a, s)' & @CRLF
$md5 &= ' a = AddUnsigned(a, b)' & @CRLF
$md5 &= 'End Sub' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Sub II(a, b, c, d, x, s, ac)' & @CRLF
$md5 &= ' a = AddUnsigned(a, AddUnsigned(AddUnsigned(I(b, c, d), x), ac))' & @CRLF
$md5 &= ' a = RotateLeft(a, s)' & @CRLF
$md5 &= ' a = AddUnsigned(a, b)' & @CRLF
$md5 &= 'End Sub' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function ConvertToWordArray(sMessage)' & @CRLF
$md5 &= ' Dim lMessageLength' & @CRLF
$md5 &= ' Dim lNumberOfWords' & @CRLF
$md5 &= ' Dim lWordArray()' & @CRLF
$md5 &= ' Dim lBytePosition' & @CRLF
$md5 &= ' Dim lByteCount' & @CRLF
$md5 &= ' Dim lWordCount' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' Const MODULUS_BITS = 512' & @CRLF
$md5 &= ' Const CONGRUENT_BITS = 448' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' lMessageLength = Len(sMessage)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)' & @CRLF
$md5 &= ' ReDim lWordArray(lNumberOfWords - 1)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' lBytePosition = 0' & @CRLF
$md5 &= ' lByteCount = 0' & @CRLF
$md5 &= ' Do Until lByteCount >= lMessageLength' & @CRLF
$md5 &= ' lWordCount = lByteCount \ BYTES_TO_A_WORD' & @CRLF
$md5 &= ' lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE' & @CRLF
$md5 &= ' lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)' & @CRLF
$md5 &= ' lByteCount = lByteCount + 1' & @CRLF
$md5 &= ' Loop' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' lWordCount = lByteCount \ BYTES_TO_A_WORD' & @CRLF
$md5 &= ' lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)' & @CRLF
$md5 &= ' lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' ConvertToWordArray = lWordArray' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function WordToHex(lValue)' & @CRLF
$md5 &= ' Dim lByte' & @CRLF
$md5 &= ' Dim lCount' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' For lCount = 0 To 3' & @CRLF
$md5 &= ' lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)' & @CRLF
$md5 &= ' WordToHex = WordToHex & Right("0" & Hex(lByte), 2)' & @CRLF
$md5 &= ' Next' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Public Function MD5(sMessage)' & @CRLF
$md5 &= ' Dim x' & @CRLF
$md5 &= ' Dim k' & @CRLF
$md5 &= ' Dim AA' & @CRLF
$md5 &= ' Dim BB' & @CRLF
$md5 &= ' Dim CC' & @CRLF
$md5 &= ' Dim DD' & @CRLF
$md5 &= ' Dim a' & @CRLF
$md5 &= ' Dim b' & @CRLF
$md5 &= ' Dim c' & @CRLF
$md5 &= ' Dim d' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' Const S11 = 7' & @CRLF
$md5 &= ' Const S12 = 12' & @CRLF
$md5 &= ' Const S13 = 17' & @CRLF
$md5 &= ' Const S14 = 22' & @CRLF
$md5 &= ' Const S21 = 5' & @CRLF
$md5 &= ' Const S22 = 9' & @CRLF
$md5 &= ' Const S23 = 14' & @CRLF
$md5 &= ' Const S24 = 20' & @CRLF
$md5 &= ' Const S31 = 4' & @CRLF
$md5 &= ' Const S32 = 11' & @CRLF
$md5 &= ' Const S33 = 16' & @CRLF
$md5 &= ' Const S34 = 23' & @CRLF
$md5 &= ' Const S41 = 6' & @CRLF
$md5 &= ' Const S42 = 10' & @CRLF
$md5 &= ' Const S43 = 15' & @CRLF
$md5 &= ' Const S44 = 21' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' x = ConvertToWordArray(sMessage)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' a = &H67452301' & @CRLF
$md5 &= ' b = &HEFCDAB89' & @CRLF
$md5 &= ' c = &H98BADCFE' & @CRLF
$md5 &= ' d = &H10325476' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' For k = 0 To UBound(x) Step 16' & @CRLF
$md5 &= ' AA = a' & @CRLF
$md5 &= ' BB = b' & @CRLF
$md5 &= ' CC = c' & @CRLF
$md5 &= ' DD = d' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' FF a, b, c, d, x(k + 0), S11, &HD76AA478' & @CRLF
$md5 &= ' FF d, a, b, c, x(k + 1), S12, &HE8C7B756' & @CRLF
$md5 &= ' FF c, d, a, b, x(k + 2), S13, &H242070DB' & @CRLF
$md5 &= ' FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE' & @CRLF
$md5 &= ' FF a, b, c, d, x(k + 4), S11, &HF57C0FAF' & @CRLF
$md5 &= ' FF d, a, b, c, x(k + 5), S12, &H4787C62A' & @CRLF
$md5 &= ' FF c, d, a, b, x(k + 6), S13, &HA8304613' & @CRLF
$md5 &= ' FF b, c, d, a, x(k + 7), S14, &HFD469501' & @CRLF
$md5 &= ' FF a, b, c, d, x(k + 8), S11, &H698098D8' & @CRLF
$md5 &= ' FF d, a, b, c, x(k + 9), S12, &H8B44F7AF' & @CRLF
$md5 &= ' FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1' & @CRLF
$md5 &= ' FF b, c, d, a, x(k + 11), S14, &H895CD7BE' & @CRLF
$md5 &= ' FF a, b, c, d, x(k + 12), S11, &H6B901122' & @CRLF
$md5 &= ' FF d, a, b, c, x(k + 13), S12, &HFD987193' & @CRLF
$md5 &= ' FF c, d, a, b, x(k + 14), S13, &HA679438E' & @CRLF
$md5 &= ' FF b, c, d, a, x(k + 15), S14, &H49B40821' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' GG a, b, c, d, x(k + 1), S21, &HF61E2562' & @CRLF
$md5 &= ' GG d, a, b, c, x(k + 6), S22, &HC040B340' & @CRLF
$md5 &= ' GG c, d, a, b, x(k + 11), S23, &H265E5A51' & @CRLF
$md5 &= ' GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA' & @CRLF
$md5 &= ' GG a, b, c, d, x(k + 5), S21, &HD62F105D' & @CRLF
$md5 &= ' GG d, a, b, c, x(k + 10), S22, &H2441453' & @CRLF
$md5 &= ' GG c, d, a, b, x(k + 15), S23, &HD8A1E681' & @CRLF
$md5 &= ' GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8' & @CRLF
$md5 &= ' GG a, b, c, d, x(k + 9), S21, &H21E1CDE6' & @CRLF
$md5 &= ' GG d, a, b, c, x(k + 14), S22, &HC33707D6' & @CRLF
$md5 &= ' GG c, d, a, b, x(k + 3), S23, &HF4D50D87' & @CRLF
$md5 &= ' GG b, c, d, a, x(k + 8), S24, &H455A14ED' & @CRLF
$md5 &= ' GG a, b, c, d, x(k + 13), S21, &HA9E3E905' & @CRLF
$md5 &= ' GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8' & @CRLF
$md5 &= ' GG c, d, a, b, x(k + 7), S23, &H676F02D9' & @CRLF
$md5 &= ' GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' HH a, b, c, d, x(k + 5), S31, &HFFFA3942' & @CRLF
$md5 &= ' HH d, a, b, c, x(k + 8), S32, &H8771F681' & @CRLF
$md5 &= ' HH c, d, a, b, x(k + 11), S33, &H6D9D6122' & @CRLF
$md5 &= ' HH b, c, d, a, x(k + 14), S34, &HFDE5380C' & @CRLF
$md5 &= ' HH a, b, c, d, x(k + 1), S31, &HA4BEEA44' & @CRLF
$md5 &= ' HH d, a, b, c, x(k + 4), S32, &H4BDECFA9' & @CRLF
$md5 &= ' HH c, d, a, b, x(k + 7), S33, &HF6BB4B60' & @CRLF
$md5 &= ' HH b, c, d, a, x(k + 10), S34, &HBEBFBC70' & @CRLF
$md5 &= ' HH a, b, c, d, x(k + 13), S31, &H289B7EC6' & @CRLF
$md5 &= ' HH d, a, b, c, x(k + 0), S32, &HEAA127FA' & @CRLF
$md5 &= ' HH c, d, a, b, x(k + 3), S33, &HD4EF3085' & @CRLF
$md5 &= ' HH b, c, d, a, x(k + 6), S34, &H4881D05' & @CRLF
$md5 &= ' HH a, b, c, d, x(k + 9), S31, &HD9D4D039' & @CRLF
$md5 &= ' HH d, a, b, c, x(k + 12), S32, &HE6DB99E5' & @CRLF
$md5 &= ' HH c, d, a, b, x(k + 15), S33, &H1FA27CF8' & @CRLF
$md5 &= ' HH b, c, d, a, x(k + 2), S34, &HC4AC5665' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' II a, b, c, d, x(k + 0), S41, &HF4292244' & @CRLF
$md5 &= ' II d, a, b, c, x(k + 7), S42, &H432AFF97' & @CRLF
$md5 &= ' II c, d, a, b, x(k + 14), S43, &HAB9423A7' & @CRLF
$md5 &= ' II b, c, d, a, x(k + 5), S44, &HFC93A039' & @CRLF
$md5 &= ' II a, b, c, d, x(k + 12), S41, &H655B59C3' & @CRLF
$md5 &= ' II d, a, b, c, x(k + 3), S42, &H8F0CCC92' & @CRLF
$md5 &= ' II c, d, a, b, x(k + 10), S43, &HFFEFF47D' & @CRLF
$md5 &= ' II b, c, d, a, x(k + 1), S44, &H85845DD1' & @CRLF
$md5 &= ' II a, b, c, d, x(k + 8), S41, &H6FA87E4F' & @CRLF
$md5 &= ' II d, a, b, c, x(k + 15), S42, &HFE2CE6E0' & @CRLF
$md5 &= ' II c, d, a, b, x(k + 6), S43, &HA3014314' & @CRLF
$md5 &= ' II b, c, d, a, x(k + 13), S44, &H4E0811A1' & @CRLF
$md5 &= ' II a, b, c, d, x(k + 4), S41, &HF7537E82' & @CRLF
$md5 &= ' II d, a, b, c, x(k + 11), S42, &HBD3AF235' & @CRLF
$md5 &= ' II c, d, a, b, x(k + 2), S43, &H2AD7D2BB' & @CRLF
$md5 &= ' II b, c, d, a, x(k + 9), S44, &HEB86D391' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' a = AddUnsigned(a, AA)' & @CRLF
$md5 &= ' b = AddUnsigned(b, BB)' & @CRLF
$md5 &= ' c = AddUnsigned(c, CC)' & @CRLF
$md5 &= ' d = AddUnsigned(d, DD)' & @CRLF
$md5 &= ' Next' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))' & @CRLF
$md5 &= 'End Function' & @CRLF
#EndRegion
Local $vbscript = ObjCreate('ScriptControl')
$vbscript.language = 'vbscript'
$vbscript.addcode($md5)
Return $vbscript.Run('MD5', $String)
EndFunc ;==>MD5_String
Func _MyProExists()
$my_Version = "MySoftware"
If WinExists($my_Version) Then Exit
AutoItWinSetTitle($my_Version)
EndFunc ;==>_MyProExists以下是GUIEvent.au3Func jf()
_GUICtrlListView_DeleteAllItems($ListView2)
$mw = ".00"
$jfconn = ObjCreate("ADODB.Connection")
If @error Then
MsgBox(48, "程序遇到严重错误", "不能与数据库创建连接，数据库引挚被破坏。")
Exit
Else
$jfconn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=adminxpdnhp;Data Source=" & $db_path)
EndIf
$jfRS = ObjCreate("ADODB.Recordset")
$jfRS.ActiveConnection = $jfconn
$sql = "Select * From Content where chk=0"
$jfRS.Open($sql)
While Not $jfRS.eof And Not $jfRS.bof
If @error = 1 Then ExitLoop
$item = $jfRS.Fields(1).value
$dh = $jfRS.Fields(4).value
$starttime = $jfRS.Fields(5).value
$losttime = _DateDiff("n", $starttime, _NowCalc())
;====================收费价格调整部分开始===========================
If $losttime < 60 Then $money = $Q & $mw
If $losttime > (65) And $losttime < (95) Then $money = 15 & $mw
If $losttime > (95) And $losttime < (125) Then $money = 20 & $mw
If $losttime > (125) And $losttime < (160) Then $money = 25 & $mw
If $losttime > (160) Then $money = 30 & $mw
$showtime = _Format_Time($losttime)
;dim $jshs
;$jshs=0
;if $losttime>=60 then$jshs += 1
;====================收费价格调整部分===============================
_GUICtrlListView_BeginUpdate($ListView2)
GUICtrlCreateListViewItem($item & "|" & $dh & "|" & $starttime & "|" & $showtime & "|" & $money & "|" & $manager, $ListView2)
_GUICtrlListView_EndUpdate($ListView2)
$jfconn.Execute("Update Content set xf='" & $money & "' where DH='" & $dh & "'")
$jfRS.movenext
WEnd
$jfRS.close()
$jfconn.close()
EndFunc ;==>jf
;==============================自动刷新计费函数=================================
;===========为了在循环时，手动刷新时生产错误，建立相同的数据库连接。============
Func autojf()
$autoconn = ObjCreate("ADODB.Connection")
If @error Then
MsgBox(48, "程序遇到严重错误", "不能与数据库创建连接，数据库引挚被破坏。")
Exit
Else
$autoconn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=adminxpdnhp;Data Source=" & $db_path)
EndIf
$AutoRS = ObjCreate("ADODB.Recordset")
$AutoRS.ActiveConnection = $autoconn
$AutoRS.Open("Select * From sys")
$Q = $AutoRS.fields(1).value
$S = $AutoRS.fields(2).value
$Z = $AutoRS.fields(3).value
$AutoRS.close
_GUICtrlListView_DeleteAllItems($ListView2)
$mw = ".00"
;读取数据库，筛选没有结账的记录，计算出所用时间
;$hs = _GUICtrlListView_GetItemCount($ListView2) ;读取列表框总行数
;For $i = 0 To $hs
;$k = _GUICtrlListView_GetItemText($ListView2, $i, 1) ;获取$i行0列的值
;$j = _GUICtrlListView_GetItemText($ListView2, $i, 4) ;获取$i行3列的值
;Next
$sql = "Select * From Content where chk=0"
$AutoRS = ObjCreate("ADODB.Recordset")
$AutoRS.ActiveConnection = $autoconn
$AutoRS.Open($sql)
While Not $AutoRS.eof And Not $AutoRS.bof
If @error = 1 Then ExitLoop
$item = $AutoRS.Fields(1).value
$dh = $AutoRS.Fields(4).value
$starttime = $AutoRS.Fields(5).value
$losttime = _DateDiff("n", $starttime, _NowCalc())
$showtime = _Format_Time($losttime)
;====================收费价格调整部分开始===========================
If $losttime < 60 Then $money = $Q & $mw
If $losttime > (60 + $S) And $losttime < (90 + $S) Then $money = 15 & $mw
If $losttime > (90 + $S) And $losttime < (120 + $S) Then $money = 20 & $mw
If $losttime > (120 + $S) And $losttime < (155 + $S) Then $money = 25 & $mw
If $losttime > (155 + $S) Then $money = 30 & $mw
;====================收费价格调整部分===============================
_GUICtrlListView_BeginUpdate($ListView2)
GUICtrlCreateListViewItem($item & "|" & $dh & "|" & $starttime & "|" & $showtime & "|" & $money & "|" & $manager, $ListView2)
_GUICtrlListView_EndUpdate($ListView2)
$autoconn.Execute("Update Content set xf='" & $money & "' where DH='" & $dh & "'")
$AutoRS.movenext
WEnd
$AutoRS.close
$autoconn.close
EndFunc ;==>autojf
;=======================结帐处理函数======================================
Func Quit()
$index = _GUICtrlListView_GetSelectedIndices($ListView1)
If $index <> "" Then
$text = _GUICtrlListView_GetItemText($ListView1, Int($index))
_Conndb()
$sql = "Select * From box where title = " & "'" & $text & "'";根据点击的手牌号打开表.
$RS.Open($sql)
$dh = $RS.fields(3).value ;从表中获取该手牌的账单号
$chk = $RS.fields(4).value ;从表中获取该手牌的状态(即占用或者空闲状态).
_closedb()
If $chk = True Then ;True 或者 1 为占用状态,表示是已开出手牌可以结账.
_Conndb()
$sql = "Select * From Content where DH= " & "'" & $dh & "' and chk=False" ;chk表示该单号的手牌未结账.
$RS.Open($sql)
$kryj = $RS.Fields(10).value
$xf = $RS.Fields(11).value
$starttime = $RS.Fields(5).value
$xftime = _Format_Time(_DateDiff("n", $starttime, _NowCalc()))
_Closedb()
$tip = " (为负数，表示不用找钱．)"
GUICtrlSetColor($tip, 0xff0000)
GUICtrlSetState($account, $GUI_DEFBUTTON)
GUICtrlSetData($ZD, $dh);把得到的账单号快递给子窗口的标签,以便显示.
GUICtrlSetData($showxf, $xf) ;把读取出的消费金额传递给结账窗口的标签,以便显示
GUICtrlSetData($HideZD, $dh);把得到的账单号快递给子窗口的隐藏域,以便其它按钮获取此参数
GUICtrlSetData($HideTitle, $text);将选择的手牌号传递给子窗口.
GUICtrlSetData($HideXF, $xf) ;将获取到的消费传递给隐藏域.
GUICtrlSetData($Hidexftime, $xftime)
GUICtrlSetData($ZL, $kryj - $xf & ".00" & $tip)
GUICtrlSetData($kryjs, $kryj)
GUICtrlSetData($hideZL, $kryj - $xf & ".00")
GUICtrlSetData($ss, $xf)
GUICtrlSetData($zero, $kryj)
GUISwitch($Outin_form)
GUISetState(@SW_SHOW)
Else
MsgBox(64, "提示", "该手牌处于空闲状态,不能进行出场操作...")
EndIf
Else
MsgBox(64, "提示", "没有选择任何手牌,不能进行出场操作...")
EndIf
EndFunc ;==>Quit
;===============================设置列表框函数==========================
Func _Setlist($listnum, $From);
Local $i
$i = 0
GUICtrlSendMsg($listnum, $LVM_DELETEALLITEMS, 0, 0)
GUICtrlSendMsg($listnum, $LVN_ODCACHEHINT, 0, 0)
$hImage = _GUIImageList_Create(32, 32, 5, 3) ;图标显示大小
_Conndb()
$RS.Open("Select * From box order by ID asc")
GUISetState(@SW_LOCK, $From)
While Not $RS.eof And Not $RS.bof
If @error = 1 Then ExitLoop
$title = $RS.Fields(1).value
$icon = $RS.Fields(2).value
$chk = $RS.fields(4).value
_GUICtrlListView_BeginUpdate($listnum)
_GUICtrlListView_InsertItem($listnum, $title, -1, $i)
_GUICtrlListView_EndUpdate($listnum)
If $chk = True Then
_GUIImageList_AddIcon($hImage, $icon, 1, True)
Else
_GUIImageList_AddIcon($hImage, $icon, 0, True)
EndIf
$i += 1
$RS.movenext
WEnd
_GUICtrlListView_SetImageList($listnum, $hImage, 0)
; _GUICtrlListView_Arrange ($listnum)
_Closedb()
GUISetState(@SW_UNLOCK, $From)
EndFunc ;==>_Setlist
;=====================手牌状态显示函数=====================================
Func SetL2()
$hImage = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImage, @SystemDir & "\0.dll", 110)
_GUICtrlListView_SetImageList($L2, $hImage, 1)
_GUICtrlListView_DeleteAllItems($L2)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L2)
GUICtrlCreateListViewItem("手牌总数：" & _line("count"), $L2)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L2)
GUICtrlCreateListViewItem("占用手牌：" & _line("online"), $L2)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L2)
GUICtrlCreateListViewItem("空闲手牌：" & _line("offline"), $L2)
EndFunc ;==>SetL2
;=====================注册信息框处理函数===================================
Func Regbox()
$GetTitel = Get_From_title()
$hImage = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImage, @SystemDir & "\0.dll", 110)
_GUICtrlListView_SetImageList($L3, $hImage, 1)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L3)
$reg1 = GUICtrlCreateListViewItem("授权使用：" & $GetTitel, $L3)
GUICtrlSetColor($reg1, 0x400080)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L3)
GUICtrlCreateListViewItem("状态：已注册", $L3)
GUICtrlCreateListViewItem(@CRLF & @CRLF, $L3)
GUICtrlCreateListViewItem("亮点科技提供技术支持", $L3)
EndFunc ;==>Regbox
;=======================从数据库获取主窗口标题－－－显示客户Oeminfo========
Func Get_From_title() ;
_Conndb()
$RS.Open("Select * From Reg")
While Not $RS.eof And Not $RS.bof
If @error = 1 Then ExitLoop
$From_title = $RS.Fields(1).value
$RS.movenext
WEnd
_Closedb()
Return $From_title
EndFunc ;==>Get_From_title
Func Get_Date()
Return StringReplace(_NowCalcDate(), "/", "-")
EndFunc ;==>Get_Date
;===========================判断用户登录与否函数=======================
Func _Enter($user, $login)
Switch $login
Case0
_Conndb()
$conn.Execute("update Manage set chk='0' where Num =" & $user)
_CloseDb()
Case 1
_Conndb()
$conn.Execute("update Manage set chk='1' where Num =" & $user)
_CloseDb()
EndSwitch
EndFunc ;==>_Enter
;==============================开场按钮及双击，单击动作================
Func _in($DBLCLK = "")
$index = _GUICtrlListView_GetSelectedIndices($ListView1)
If $index <> "" Then
$text = _GUICtrlListView_GetItemText($ListView1, Int($index))
_Conndb()
$sql = "Select * From box where title = " & "'" & $text & "'"
$RS.Open($sql)
$dh = $RS.fields(3).value
$chk = $RS.fields(4).value
_closedb()
If $chk = True Then ;表示此手牌开出,为占用状态,可结帐.
If $DBLCLK = "1" Then ;表示双击手牌.
Quit() ;双击占用手牌,执行结账函数.
Else
MsgBox(64, "提示", "该手牌处于占用状态.不能进行开场操作...")
EndIf
Else ;否则手牌未开,为空闲状态,跳出开牌窗口.
GUICtrlSetData($Showsph, $text)
GUICtrlSetColor($Showsph, 0xff0000)
GUICtrlSetFont($Showsph, 8, 800, 0, "MS Sans Serif")
GUICtrlSetData($Hidesph, $text)
GUISwitch($Gkkt)
GUISetState(@SW_SHOW)
EndIf
Else
MsgBox(64, "提示", "没有选择任何手牌,不能使用...")
EndIf
EndFunc ;==>_in
;==============================返回当前登录ID的用户姓名=================
Func Man($num)
Dim $manager, $numid
_Conndb()
$sql = "Select * From Manage"
$RS.Open($sql)
While Not $RS.bof And Not $RS.eof
If @error Then ExitLoop
$scan = $RS.Fields(4).value
If $scan = True Then
$numid = $RS.Fields(1).value
$manager = $RS.Fields(2).value
EndIf
$RS.movenext
WEnd
_Closedb()
If $num = "man" Then Return $manager
If $num = "num" Then Return $numid
EndFunc ;==>Man
Func _Getbc($u)
_Conndb()
$RS.Open("Select * from Manage where chk=True And Num=" & $u)
$getbc = $RS.Fields(5).value
Return $getbc
_closedb()
EndFunc ;==>_Getbc
;==========================计算总手牌，及占用，空闲的状态===============
Func _line($chkonline)
_Conndb()
$RS.Open("Select " & $T & " From box")
$count = 0
$online = 0
$offline = 0
While Not $RS.eof And Not $RS.bof
If @error = 1 Then ExitLoop
$chk = $RS.fields(4).value
If $chk = True Then
$online = $online + 1
Else
$offline = $offline + 1
EndIf
$count = $count + 1
$RS.movenext
WEnd
_Closedb()
Switch $chkonline
Case "count" ;返回总手牌数
Return $count
Case "online" ;返回占用手牌数
Return $online
Case "offline" ;返回空闲手牌数
Return $offline
EndSwitch
EndFunc ;==>_line
Func BC($u) ;创建班次
Return StringReplace(_NowCalcDate(), "/", "") & "-" & $u
EndFunc ;==>BC
;=======================以下是修改用户密码函数========================
Func _changpass($Uid)
$passa = GUICtrlRead($fr5_in1)
$passb = GUICtrlRead($fr5_in2)
$passc = GUICtrlRead($fr5_in3)
_Conndb()
$sql = "Select * From Manage where Num=" & $Uid
$RS.Open($sql)
$oldpass = $RS.fields(3).value
_Closedb()
Select
Case $oldpass = MD5_String($passa)
If Not ($passb = $passc) Then
MsgBox(48, "口令更改", "输入的新口令不一致，请检测。")
GUICtrlSetState($fr5_in2, $GUI_FOCUS)
ElseIf $passb = "" Or $passc = "" Then
MsgBox(48, "口令更改", "新口令不能为空,请重新输入。")
GUICtrlSetState($fr5_in2, $GUI_FOCUS)
Else
_Conndb()
$conn.Execute("update Manage set Pass = '" & MD5_String($passb) & "' where Num=" & $Uid)
_CloseDb()
MsgBox(48, "口令更改", "口令修改成功。")
GUIDelete($pass_from)
EndIf
Case Else
MsgBox(48, "口令更改", "原始口令输入有误。")
EndSelect
EndFunc ;==>_changpass
;======================= 以下为数据库建立连接与关闭连接函数 =============
Func _Conndb()
$conn = ObjCreate("ADODB.Connection")
If @error Then
MsgBox(48, "程序遇到严重错误", "不能与数据库创建连接，数据库引挚被破坏。")
Exit
Else
$conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=adminxpdnhp;Data Source=" & $db_path)
$RS = ObjCreate("ADODB.Recordset")
$RS.ActiveConnection = $conn
EndIf
EndFunc ;==>_Conndb
Func _CloseDb()
$conn.Close
EndFunc ;==>_CloseDb
Func date()
_GUICtrlStatusBar_SetText($StatusBar1, @TAB & @TAB & "系统时间:" & _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC & " ", 1)
EndFunc ;==>date
;==============================判断列表双击，单击函数========================
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $index, $text, $path
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1);检查一个变量=GUI返回空间句柄
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam);创建一个数据结构，ilparam为变量
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"));返回数据结构
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom");返回数据结构
$iCode = DllStructGetData($tNMHDR, "Code");返回数据结构
Switch $hWndFrom;Switch...Case...EndSwitch ，hwndfrom为表达式
Case $hWndListView ;值
Switch $iCode; icode为表达式
Case $NM_DBLCLK ;值
_in("1")
Case $NM_CLICK ; The control has received the input focus
$index = _GUICtrlListView_GetSelectedIndices($ListView1);检索的选定项的索引
If $index <> "" Then
$text = _GUICtrlListView_GetItemText($ListView1, Int($index));返回一项或子项的文本
_Conndb()
$RS.Open("Select " & $T & " From box where title = " & "'" & $text & "'")
$ddh = $RS.fields(3).value
$chk = $RS.fields(4).value
_closedb()
If $chk = True Then
_Conndb()
$sql = "Select * From Content where chk=0 and DH=" & "'" & $ddh & "'"
$RS.Open($sql)
If Not $RS.BOF And Not $RS.EOF Then
$item = $RS.Fields(3).value
$starttime = $RS.Fields(5).value
$YJS = $RS.Fields(10).value
$money = $RS.Fields(11).value
$losttime = _DateDiff("n", $starttime, _NowCalc())
_Closedb()
$showtime = _Format_Time($losttime)
GUICtrlSendMsg($L1, $LVM_DELETEALLITEMS, 0, 0)
GUICtrlCreateListViewItem("", $L1)
$fontcolor = GUICtrlCreateListViewItem("手牌号：" & $text, $L1)
GUICtrlSetColor($fontcolor, 0xFF0000)
GUICtrlCreateListViewItem("", $L1)
GUICtrlCreateListViewItem("进场时间：" & $starttime, $L1)
GUICtrlCreateListViewItem("", $L1)
GUICtrlCreateListViewItem("已交押金：" & $YJS, $L1)
GUICtrlCreateListViewItem("", $L1)
GUICtrlCreateListViewItem("消费时间：" & $showtime, $L1)
GUICtrlCreateListViewItem("", $L1)
GUICtrlCreateListViewItem("消费费用：" & $money, $L1)
GUICtrlCreateListViewItem("", $L1)
EndIf
Else
GUICtrlSendMsg($L1, $LVM_DELETEALLITEMS, 0, 0)
$o = ""
For $i = 1 To 5
GUICtrlCreateListViewItem("", $L1)
Next
$spinfo = GUICtrlCreateListViewItem(" 无此手牌信息(未开台)", $L1)
GUICtrlSetColor($spinfo, 0x1f0fff)
EndIf
EndIf
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _ReduceMemory($i_PID = -1) ;释放本程序占用的内存
If $i_PID <> -1 Then
Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle)
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle)
Else
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
EndIf
Return $ai_Return
EndFunc ;==>_ReduceMemory
;==============================分钟换算成小时函数===============================
Func _Format_Time($Time)
Local $Return = "", $Min = 0, $Hour = 0
$Time = StringReplace($Time, " ", "")
If $Time < 60 Then
$Return = "0小时" & _Blen_Time($Time) & "分"
ElseIf $Time >= 60 Then
While 1
If $Time < 60 Then ExitLoop
$Hour += 1
$Time -= 60
WEnd
$Return = _Blen_Time($Hour) & "小时" & _Blen_Time($Time) & "分"
EndIf
Return $Return
EndFunc ;==>_Format_Time
Func _Blen_Time($String)
If StringLen($String) > 1 Then Return $String
Return "0" & $String
EndFunc ;==>_Blen_Time
Func _hidekj()
GUICtrlSetState(-1, $GUI_HIDE)
EndFunc ;==>_hidekj
Func _Exitsubfrom()
GUISetState(@SW_HIDE, @GUI_WinHandle)
_ReduceMemory(@AutoItPID)
EndFunc ;==>_Exitsubfrom
Func backup()
$Dataform = GUICreate("数据备份", 340, 67, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS), -1, $Form1)
$Progress1 = GUICtrlCreateProgress(40, 24, 257, 17, $PBS_SMOOTH)
GUISetState(@SW_SHOW)
For $i = 0 To 100
Sleep(10)
GUICtrlSetData($Progress1, $i)
Next
GUIDelete($Dataform)
$time1 = _NowCalcDate()
$time2 = _NowTime()
$timearray1 = StringSplit($time1, "/")
$timearray2 = StringSplit($time2, ":")
$Time = $timearray1 & $timearray1 & $timearray1 & $timearray2 & $timearray2
;MsgBox(0,0,$time)
FileCopy($db_path, @ScriptDir & "\Databak\" & $Time & "\" & $db_path, 8)
MsgBox(64, "提示", "数据库已被备份到Databak目录下的子目录" & $Time & "中.")
GUICtrlSetData($rescombo, "")
Setcombo()
EndFunc ;==>backup
Func Setcombo()
$resb = ""
$bdir = ""
$a = Seek(@ScriptDir & "\Databak")
$dirc = StringSplit($a, ";")
Dim $dirtemp[$dirc + 1]
For $resi = 1 To $dirc
;~ MsgBox(0,0,$dirc[$resi])
$dirtemp[$resi] = StringMid($dirc[$resi], 1, 4) & "年" & StringMid($dirc[$resi], 5, 2) & "月" & StringMid($dirc[$resi], 7, 2) & "日" & StringMid($dirc[$resi], 9, 2) & "时" & StringRight($dirc[$resi], 2) & "分"
If $resb = "" Then
$resb = $dirtemp[$resi]
Else
$resb = $resb & "|" & $dirtemp[$resi]
EndIf
Next
GUICtrlSetData($rescombo, $resb, $dirtemp)
EndFunc ;==>Setcombo
Func restore()
$resb = ""
$bdir = ""
$a = Seek(@ScriptDir & "\Databak")
$dirc = StringSplit($a, ";")
Dim $dirtemp[$dirc + 1]
For $resi = 1 To $dirc
$dirtemp[$resi] = StringMid($dirc[$resi], 1, 4) & "年" & StringMid($dirc[$resi], 5, 2) & "月" & StringMid($dirc[$resi], 7, 2) & "日" & StringMid($dirc[$resi], 9, 2) & "时" & StringRight($dirc[$resi], 2) & "分"
If $resb = "" Then
$resb = $dirtemp[$resi]
Else
$resb = $resb & "|" & $dirtemp[$resi]
EndIf
Next
If $resb = "年月日时分" Then
MsgBox(16, "提示", "没有备份数据文件可被恢复。")
ElseIf GUICtrlRead($rescombo) = "" Then
MsgBox(16, "错误", "没有备份数据文件可被恢复.")
Else
$Datarestore = GUICreate("数据恢复", 340, 67, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS), -1, $Form1)
$Progress1 = GUICtrlCreateProgress(40, 24, 257, 17, $PBS_SMOOTH)
GUISetState(@SW_SHOW)
For $i = 0 To 100
Sleep(10)
GUICtrlSetData($Progress1, $i)
Next
GUIDelete($Datarestore)
$bdir &= StringMid(GUICtrlRead($rescombo), 1, 4) & StringMid(GUICtrlRead($rescombo), 6, 2) & StringMid(GUICtrlRead($rescombo), 9, 2) & StringMid(GUICtrlRead($rescombo), 12, 2) & StringMid(GUICtrlRead($rescombo), 15, 2)
FileCopy(@ScriptDir & "\Databak\" & $bdir & "\" & $db_path, @ScriptDir & "\" & $db_path, 9)
MsgBox(64, "提示", "恢复成功。")
EndIf
EndFunc ;==>restore
Func Seek($Dir)
$total = ""
If StringRight($Dir, 1) <> "\" Then $Dir = $Dir & "\";
$search = FileFindFirstFile($Dir & "*.*")
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
If FileGetAttrib($Dir & $file) = "D" Then;
If $total = "" Then
$total = $file
Else
$total = $total & ";" & $file
EndIf
EndIf
WEnd
Return $total
FileClose($search)
EndFunc ;==>Seek
Func check()
GUICtrlSetState($Input1, $GUI_FOCUS)
EndFunc ;==>check
Func loaduser()
_Conndb()
$sql = "Select * From Manage"
$RS.Open($sql)
While Not $RS.bof And Not $RS.eof
If @error Then ExitLoop
$pd = $RS.fields(4).value
If $pd = True Then
GUICtrlSetData($numInput, $RS.fields(1).value)
GUICtrlSetData($userInput, $RS.fields(2).value)
EndIf
$RS.movenext
WEnd
_Closedb()
EndFunc ;==>loaduser
Func _exit()
GUISetState(@SW_HIDE) ;这里先将界面隐藏起来，因为要先关闭皮肤后才关闭软件，所以隐藏界面后关闭皮肤的话就不会看到没有皮肤的界面了。
DllCall($Dll_, "int", "USkinRemoveSkin") ;这里是关闭皮肤
DllCall($Dll_, "int", "USkinExit") ;这里是退出皮肤调用的DLL
DllClose($Dll_) ;关闭DLL文件调用
Exit ;退出脚本（关闭软件）
EndFunc ;==>_exit
Func delsetsys()
GUIDelete($Setsys_from)
_ReduceMemory(@AutoItPID)
EndFunc ;==>delsetsys
Func ShowUser()
GUICtrlSendMsg($userlist1, $LVM_DELETEALLITEMS, 0, 0)
_Conndb()
$RS.Open("Select * From Manage order by Num ASC")
While Not $RS.bof And Not $RS.eof
If @error Then ExitLoop
GUICtrlCreateListViewItem($RS.fields(1).value & "|" & $RS.fields(2).value & "|*********", $userlist1)
$RS.movenext
WEnd
_Closedb()
_ReduceMemory(@AutoItPID)
EndFunc ;==>ShowUser Func MD5_String($String)
Local $md5 = 'Private Const BITS_TO_A_BYTE = 8' & @CRLF
$md5 &= 'Private Const BYTES_TO_A_WORD = 4' & @CRLF
$md5 &= 'Private Const BITS_TO_A_WORD = 32' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private m_lOnBits(30)' & @CRLF
$md5 &= 'Private m_l2Power(30)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' m_lOnBits(0) = CLng(1)' & @CRLF
$md5 &= ' m_lOnBits(1) = CLng(3)' & @CRLF
$md5 &= ' m_lOnBits(2) = CLng(7)' & @CRLF
$md5 &= ' m_lOnBits(3) = CLng(15)' & @CRLF
$md5 &= ' m_lOnBits(4) = CLng(31)' & @CRLF
$md5 &= ' m_lOnBits(5) = CLng(63)' & @CRLF
$md5 &= ' m_lOnBits(6) = CLng(127)' & @CRLF
$md5 &= ' m_lOnBits(7) = CLng(255)' & @CRLF
$md5 &= ' m_lOnBits(8) = CLng(511)' & @CRLF
$md5 &= ' m_lOnBits(9) = CLng(1023)' & @CRLF
$md5 &= ' m_lOnBits(10) = CLng(2047)' & @CRLF
$md5 &= ' m_lOnBits(11) = CLng(4095)' & @CRLF
$md5 &= ' m_lOnBits(12) = CLng(8191)' & @CRLF
$md5 &= ' m_lOnBits(13) = CLng(16383)' & @CRLF
$md5 &= ' m_lOnBits(14) = CLng(32767)' & @CRLF
$md5 &= ' m_lOnBits(15) = CLng(65535)' & @CRLF
$md5 &= ' m_lOnBits(16) = CLng(131071)' & @CRLF
$md5 &= ' m_lOnBits(17) = CLng(262143)' & @CRLF
$md5 &= ' m_lOnBits(18) = CLng(524287)' & @CRLF
$md5 &= ' m_lOnBits(19) = CLng(1048575)' & @CRLF
$md5 &= ' m_lOnBits(20) = CLng(2097151)' & @CRLF
$md5 &= ' m_lOnBits(21) = CLng(4194303)' & @CRLF
$md5 &= ' m_lOnBits(22) = CLng(8388607)' & @CRLF
$md5 &= ' m_lOnBits(23) = CLng(16777215)' & @CRLF
$md5 &= ' m_lOnBits(24) = CLng(33554431)' & @CRLF
$md5 &= ' m_lOnBits(25) = CLng(67108863)' & @CRLF
$md5 &= ' m_lOnBits(26) = CLng(134217727)' & @CRLF
$md5 &= ' m_lOnBits(27) = CLng(268435455)' & @CRLF
$md5 &= ' m_lOnBits(28) = CLng(536870911)' & @CRLF
$md5 &= ' m_lOnBits(29) = CLng(1073741823)' & @CRLF
$md5 &= ' m_lOnBits(30) = CLng(2147483647)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' m_l2Power(0) = CLng(1)' & @CRLF
$md5 &= ' m_l2Power(1) = CLng(2)' & @CRLF
$md5 &= ' m_l2Power(2) = CLng(4)' & @CRLF
$md5 &= ' m_l2Power(3) = CLng(8)' & @CRLF
$md5 &= ' m_l2Power(4) = CLng(16)' & @CRLF
$md5 &= ' m_l2Power(5) = CLng(32)' & @CRLF
$md5 &= ' m_l2Power(6) = CLng(64)' & @CRLF
$md5 &= ' m_l2Power(7) = CLng(128)' & @CRLF
$md5 &= ' m_l2Power(8) = CLng(256)' & @CRLF
$md5 &= ' m_l2Power(9) = CLng(512)' & @CRLF
$md5 &= ' m_l2Power(10) = CLng(1024)' & @CRLF
$md5 &= ' m_l2Power(11) = CLng(2048)' & @CRLF
$md5 &= ' m_l2Power(12) = CLng(4096)' & @CRLF
$md5 &= ' m_l2Power(13) = CLng(8192)' & @CRLF
$md5 &= ' m_l2Power(14) = CLng(16384)' & @CRLF
$md5 &= ' m_l2Power(15) = CLng(32768)' & @CRLF
$md5 &= ' m_l2Power(16) = CLng(65536)' & @CRLF
$md5 &= ' m_l2Power(17) = CLng(131072)' & @CRLF
$md5 &= ' m_l2Power(18) = CLng(262144)' & @CRLF
$md5 &= ' m_l2Power(19) = CLng(524288)' & @CRLF
$md5 &= ' m_l2Power(20) = CLng(1048576)' & @CRLF
$md5 &= ' m_l2Power(21) = CLng(2097152)' & @CRLF
$md5 &= ' m_l2Power(22) = CLng(4194304)' & @CRLF
$md5 &= ' m_l2Power(23) = CLng(8388608)' & @CRLF
$md5 &= ' m_l2Power(24) = CLng(16777216)' & @CRLF
$md5 &= ' m_l2Power(25) = CLng(33554432)' & @CRLF
$md5 &= ' m_l2Power(26) = CLng(67108864)' & @CRLF
$md5 &= ' m_l2Power(27) = CLng(134217728)' & @CRLF
$md5 &= ' m_l2Power(28) = CLng(268435456)' & @CRLF
$md5 &= ' m_l2Power(29) = CLng(536870912)' & @CRLF
$md5 &= ' m_l2Power(30) = CLng(1073741824)' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function LShift(lValue, iShiftBits)' & @CRLF
$md5 &= ' If iShiftBits = 0 Then' & @CRLF
$md5 &= ' LShift = lValue' & @CRLF
$md5 &= ' Exit Function' & @CRLF
$md5 &= ' ElseIf iShiftBits = 31 Then' & @CRLF
$md5 &= ' If lValue And 1 Then' & @CRLF
$md5 &= ' LShift = &H80000000' & @CRLF
$md5 &= ' Else' & @CRLF
$md5 &= ' LShift = 0' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= ' Exit Function' & @CRLF
$md5 &= ' ElseIf iShiftBits < 0 Or iShiftBits > 31 Then' & @CRLF
$md5 &= ' Err.Raise 6' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' If (lValue And m_l2Power(31 - iShiftBits)) Then' & @CRLF
$md5 &= ' LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000' & @CRLF
$md5 &= ' Else' & @CRLF
$md5 &= ' LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function RShift(lValue, iShiftBits)' & @CRLF
$md5 &= ' If iShiftBits = 0 Then' & @CRLF
$md5 &= ' RShift = lValue' & @CRLF
$md5 &= ' Exit Function' & @CRLF
$md5 &= ' ElseIf iShiftBits = 31 Then' & @CRLF
$md5 &= ' If lValue And &H80000000 Then' & @CRLF
$md5 &= ' RShift = 1' & @CRLF
$md5 &= ' Else' & @CRLF
$md5 &= ' RShift = 0' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= ' Exit Function' & @CRLF
$md5 &= ' ElseIf iShiftBits < 0 Or iShiftBits > 31 Then' & @CRLF
$md5 &= ' Err.Raise 6' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' If (lValue And &H80000000) Then' & @CRLF
$md5 &= ' RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function RotateLeft(lValue, iShiftBits)' & @CRLF
$md5 &= ' RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function AddUnsigned(lX, lY)' & @CRLF
$md5 &= ' Dim lX4' & @CRLF
$md5 &= ' Dim lY4' & @CRLF
$md5 &= ' Dim lX8' & @CRLF
$md5 &= ' Dim lY8' & @CRLF
$md5 &= ' Dim lResult' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' lX8 = lX And &H80000000' & @CRLF
$md5 &= ' lY8 = lY And &H80000000' & @CRLF
$md5 &= ' lX4 = lX And &H40000000' & @CRLF
$md5 &= ' lY4 = lY And &H40000000' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' If lX4 And lY4 Then' & @CRLF
$md5 &= ' lResult = lResult Xor &H80000000 Xor lX8 Xor lY8' & @CRLF
$md5 &= ' ElseIf lX4 Or lY4 Then' & @CRLF
$md5 &= ' If lResult And &H40000000 Then' & @CRLF
$md5 &= ' lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8' & @CRLF
$md5 &= ' Else' & @CRLF
$md5 &= ' lResult = lResult Xor &H40000000 Xor lX8 Xor lY8' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= ' Else' & @CRLF
$md5 &= ' lResult = lResult Xor lX8 Xor lY8' & @CRLF
$md5 &= ' End If' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' AddUnsigned = lResult' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function F(x, y, z)' & @CRLF
$md5 &= ' F = (x And y) Or ((Not x) And z)' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function G(x, y, z)' & @CRLF
$md5 &= ' G = (x And z) Or (y And (Not z))' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function H(x, y, z)' & @CRLF
$md5 &= ' H = (x Xor y Xor z)' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function I(x, y, z)' & @CRLF
$md5 &= ' I = (y Xor (x Or (Not z)))' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Sub FF(a, b, c, d, x, s, ac)' & @CRLF
$md5 &= ' a = AddUnsigned(a, AddUnsigned(AddUnsigned(F(b, c, d), x), ac))' & @CRLF
$md5 &= ' a = RotateLeft(a, s)' & @CRLF
$md5 &= ' a = AddUnsigned(a, b)' & @CRLF
$md5 &= 'End Sub' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Sub GG(a, b, c, d, x, s, ac)' & @CRLF
$md5 &= ' a = AddUnsigned(a, AddUnsigned(AddUnsigned(G(b, c, d), x), ac))' & @CRLF
$md5 &= ' a = RotateLeft(a, s)' & @CRLF
$md5 &= ' a = AddUnsigned(a, b)' & @CRLF
$md5 &= 'End Sub' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Sub HH(a, b, c, d, x, s, ac)' & @CRLF
$md5 &= ' a = AddUnsigned(a, AddUnsigned(AddUnsigned(H(b, c, d), x), ac))' & @CRLF
$md5 &= ' a = RotateLeft(a, s)' & @CRLF
$md5 &= ' a = AddUnsigned(a, b)' & @CRLF
$md5 &= 'End Sub' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Sub II(a, b, c, d, x, s, ac)' & @CRLF
$md5 &= ' a = AddUnsigned(a, AddUnsigned(AddUnsigned(I(b, c, d), x), ac))' & @CRLF
$md5 &= ' a = RotateLeft(a, s)' & @CRLF
$md5 &= ' a = AddUnsigned(a, b)' & @CRLF
$md5 &= 'End Sub' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function ConvertToWordArray(sMessage)' & @CRLF
$md5 &= ' Dim lMessageLength' & @CRLF
$md5 &= ' Dim lNumberOfWords' & @CRLF
$md5 &= ' Dim lWordArray()' & @CRLF
$md5 &= ' Dim lBytePosition' & @CRLF
$md5 &= ' Dim lByteCount' & @CRLF
$md5 &= ' Dim lWordCount' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' Const MODULUS_BITS = 512' & @CRLF
$md5 &= ' Const CONGRUENT_BITS = 448' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' lMessageLength = Len(sMessage)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)' & @CRLF
$md5 &= ' ReDim lWordArray(lNumberOfWords - 1)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' lBytePosition = 0' & @CRLF
$md5 &= ' lByteCount = 0' & @CRLF
$md5 &= ' Do Until lByteCount >= lMessageLength' & @CRLF
$md5 &= ' lWordCount = lByteCount \ BYTES_TO_A_WORD' & @CRLF
$md5 &= ' lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE' & @CRLF
$md5 &= ' lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)' & @CRLF
$md5 &= ' lByteCount = lByteCount + 1' & @CRLF
$md5 &= ' Loop' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' lWordCount = lByteCount \ BYTES_TO_A_WORD' & @CRLF
$md5 &= ' lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)' & @CRLF
$md5 &= ' lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' ConvertToWordArray = lWordArray' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Private Function WordToHex(lValue)' & @CRLF
$md5 &= ' Dim lByte' & @CRLF
$md5 &= ' Dim lCount' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' For lCount = 0 To 3' & @CRLF
$md5 &= ' lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)' & @CRLF
$md5 &= ' WordToHex = WordToHex & Right("0" & Hex(lByte), 2)' & @CRLF
$md5 &= ' Next' & @CRLF
$md5 &= 'End Function' & @CRLF
$md5 &= '' & @CRLF
$md5 &= 'Public Function MD5(sMessage)' & @CRLF
$md5 &= ' Dim x' & @CRLF
$md5 &= ' Dim k' & @CRLF
$md5 &= ' Dim AA' & @CRLF
$md5 &= ' Dim BB' & @CRLF
$md5 &= ' Dim CC' & @CRLF
$md5 &= ' Dim DD' & @CRLF
$md5 &= ' Dim a' & @CRLF
$md5 &= ' Dim b' & @CRLF
$md5 &= ' Dim c' & @CRLF
$md5 &= ' Dim d' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' Const S11 = 7' & @CRLF
$md5 &= ' Const S12 = 12' & @CRLF
$md5 &= ' Const S13 = 17' & @CRLF
$md5 &= ' Const S14 = 22' & @CRLF
$md5 &= ' Const S21 = 5' & @CRLF
$md5 &= ' Const S22 = 9' & @CRLF
$md5 &= ' Const S23 = 14' & @CRLF
$md5 &= ' Const S24 = 20' & @CRLF
$md5 &= ' Const S31 = 4' & @CRLF
$md5 &= ' Const S32 = 11' & @CRLF
$md5 &= ' Const S33 = 16' & @CRLF
$md5 &= ' Const S34 = 23' & @CRLF
$md5 &= ' Const S41 = 6' & @CRLF
$md5 &= ' Const S42 = 10' & @CRLF
$md5 &= ' Const S43 = 15' & @CRLF
$md5 &= ' Const S44 = 21' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' x = ConvertToWordArray(sMessage)' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' a = &H67452301' & @CRLF
$md5 &= ' b = &HEFCDAB89' & @CRLF
$md5 &= ' c = &H98BADCFE' & @CRLF
$md5 &= ' d = &H10325476' & @CRLF
$md5 &= '' & @CRLF
$md5 &= ' For k = 0 To UBound(x) Step 16' & @CRLF
$md5 &= ' AA = a' & @CRLF
$md5 &= ' BB = b' & @CRLF
$md5 &= ' CC = c' & @CRLF
$md5 &= ' DD = d' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' FF a, b, c, d, x(k + 0), S11, &HD76AA478' & @CRLF
$md5 &= ' FF d, a, b, c, x(k + 1), S12, &HE8C7B756' & @CRLF
$md5 &= ' FF c, d, a, b, x(k + 2), S13, &H242070DB' & @CRLF
$md5 &= ' FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE' & @CRLF
$md5 &= ' FF a, b, c, d, x(k + 4), S11, &HF57C0FAF' & @CRLF
$md5 &= ' FF d, a, b, c, x(k + 5), S12, &H4787C62A' & @CRLF
$md5 &= ' FF c, d, a, b, x(k + 6), S13, &HA8304613' & @CRLF
$md5 &= ' FF b, c, d, a, x(k + 7), S14, &HFD469501' & @CRLF
$md5 &= ' FF a, b, c, d, x(k + 8), S11, &H698098D8' & @CRLF
$md5 &= ' FF d, a, b, c, x(k + 9), S12, &H8B44F7AF' & @CRLF
$md5 &= ' FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1' & @CRLF
$md5 &= ' FF b, c, d, a, x(k + 11), S14, &H895CD7BE' & @CRLF
$md5 &= ' FF a, b, c, d, x(k + 12), S11, &H6B901122' & @CRLF
$md5 &= ' FF d, a, b, c, x(k + 13), S12, &HFD987193' & @CRLF
$md5 &= ' FF c, d, a, b, x(k + 14), S13, &HA679438E' & @CRLF
$md5 &= ' FF b, c, d, a, x(k + 15), S14, &H49B40821' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' GG a, b, c, d, x(k + 1), S21, &HF61E2562' & @CRLF
$md5 &= ' GG d, a, b, c, x(k + 6), S22, &HC040B340' & @CRLF
$md5 &= ' GG c, d, a, b, x(k + 11), S23, &H265E5A51' & @CRLF
$md5 &= ' GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA' & @CRLF
$md5 &= ' GG a, b, c, d, x(k + 5), S21, &HD62F105D' & @CRLF
$md5 &= ' GG d, a, b, c, x(k + 10), S22, &H2441453' & @CRLF
$md5 &= ' GG c, d, a, b, x(k + 15), S23, &HD8A1E681' & @CRLF
$md5 &= ' GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8' & @CRLF
$md5 &= ' GG a, b, c, d, x(k + 9), S21, &H21E1CDE6' & @CRLF
$md5 &= ' GG d, a, b, c, x(k + 14), S22, &HC33707D6' & @CRLF
$md5 &= ' GG c, d, a, b, x(k + 3), S23, &HF4D50D87' & @CRLF
$md5 &= ' GG b, c, d, a, x(k + 8), S24, &H455A14ED' & @CRLF
$md5 &= ' GG a, b, c, d, x(k + 13), S21, &HA9E3E905' & @CRLF
$md5 &= ' GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8' & @CRLF
$md5 &= ' GG c, d, a, b, x(k + 7), S23, &H676F02D9' & @CRLF
$md5 &= ' GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' HH a, b, c, d, x(k + 5), S31, &HFFFA3942' & @CRLF
$md5 &= ' HH d, a, b, c, x(k + 8), S32, &H8771F681' & @CRLF
$md5 &= ' HH c, d, a, b, x(k + 11), S33, &H6D9D6122' & @CRLF
$md5 &= ' HH b, c, d, a, x(k + 14), S34, &HFDE5380C' & @CRLF
$md5 &= ' HH a, b, c, d, x(k + 1), S31, &HA4BEEA44' & @CRLF
$md5 &= ' HH d, a, b, c, x(k + 4), S32, &H4BDECFA9' & @CRLF
$md5 &= ' HH c, d, a, b, x(k + 7), S33, &HF6BB4B60' & @CRLF
$md5 &= ' HH b, c, d, a, x(k + 10), S34, &HBEBFBC70' & @CRLF
$md5 &= ' HH a, b, c, d, x(k + 13), S31, &H289B7EC6' & @CRLF
$md5 &= ' HH d, a, b, c, x(k + 0), S32, &HEAA127FA' & @CRLF
$md5 &= ' HH c, d, a, b, x(k + 3), S33, &HD4EF3085' & @CRLF
$md5 &= ' HH b, c, d, a, x(k + 6), S34, &H4881D05' & @CRLF
$md5 &= ' HH a, b, c, d, x(k + 9), S31, &HD9D4D039' & @CRLF
$md5 &= ' HH d, a, b, c, x(k + 12), S32, &HE6DB99E5' & @CRLF
$md5 &= ' HH c, d, a, b, x(k + 15), S33, &H1FA27CF8' & @CRLF
$md5 &= ' HH b, c, d, a, x(k + 2), S34, &HC4AC5665' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' II a, b, c, d, x(k + 0), S41, &HF4292244' & @CRLF
$md5 &= ' II d, a, b, c, x(k + 7), S42, &H432AFF97' & @CRLF
$md5 &= ' II c, d, a, b, x(k + 14), S43, &HAB9423A7' & @CRLF
$md5 &= ' II b, c, d, a, x(k + 5), S44, &HFC93A039' & @CRLF
$md5 &= ' II a, b, c, d, x(k + 12), S41, &H655B59C3' & @CRLF
$md5 &= ' II d, a, b, c, x(k + 3), S42, &H8F0CCC92' & @CRLF
$md5 &= ' II c, d, a, b, x(k + 10), S43, &HFFEFF47D' & @CRLF
$md5 &= ' II b, c, d, a, x(k + 1), S44, &H85845DD1' & @CRLF
$md5 &= ' II a, b, c, d, x(k + 8), S41, &H6FA87E4F' & @CRLF
$md5 &= ' II d, a, b, c, x(k + 15), S42, &HFE2CE6E0' & @CRLF
$md5 &= ' II c, d, a, b, x(k + 6), S43, &HA3014314' & @CRLF
$md5 &= ' II b, c, d, a, x(k + 13), S44, &H4E0811A1' & @CRLF
$md5 &= ' II a, b, c, d, x(k + 4), S41, &HF7537E82' & @CRLF
$md5 &= ' II d, a, b, c, x(k + 11), S42, &HBD3AF235' & @CRLF
$md5 &= ' II c, d, a, b, x(k + 2), S43, &H2AD7D2BB' & @CRLF
$md5 &= ' II b, c, d, a, x(k + 9), S44, &HEB86D391' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' a = AddUnsigned(a, AA)' & @CRLF
$md5 &= ' b = AddUnsigned(b, BB)' & @CRLF
$md5 &= ' c = AddUnsigned(c, CC)' & @CRLF
$md5 &= ' d = AddUnsigned(d, DD)' & @CRLF
$md5 &= ' Next' & @CRLF
$md5 &= ' ' & @CRLF
$md5 &= ' MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))' & @CRLF
$md5 &= 'End Function' & @CRLF
#EndRegion
Local $vbscript = ObjCreate('ScriptControl')
$vbscript.language = 'vbscript'
$vbscript.addcode($md5)
Return $vbscript.Run('MD5', $String)
EndFunc ;==>MD5_String
Func _MyProExists()
$my_Version = "MySoftware"
If WinExists($my_Version) Then Exit
AutoItWinSetTitle($my_Version)
EndFunc ;==>_MyProExists 太长的源码，下次上成附件，否者仍贴 本帖最后由 smartzbs 于 2009-12-31 14:52 编辑
贴了第一段就可以了.
从官方例程对比,_GUICtrlListView_SetImageList,_GUICtrlListView_AddItem的用法速度也只比GUICtrlCreateListViewItem慢2-3倍
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
Opt('MustDeclareVars', 1)
$Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it work
_Main()
Func _Main()
Local $hImage, $hListView
GUICreate("ListView Set Image List", 400, 300)
$hListView = GUICtrlCreateListView("", 2, 2, 394, 268)
GUISetState()
; Load images
$hImage = _GUIImageList_Create()
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x0000FF, 16, 16))
_GUICtrlListView_SetImageList($hListView, $hImage, 1)
; Add columns
_GUICtrlListView_AddColumn($hListView, "Column 1", 100)
_GUICtrlListView_AddColumn($hListView, "Column 2", 100)
_GUICtrlListView_AddColumn($hListView, "Column 3", 100)
; Add items
For $i = 1 To 10000
_GUICtrlListView_AddItem($hListView, "Item"&$i, 0)
Next
; Get image list handle
;MsgBox(4160, "Information", "Image List Handle: 0x" & Hex(_GUICtrlListView_GetImageList($hListView, 1)))
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main
你的问题应该在取数据:
While Not $RS.eof And Not $RS.bof
If @error = 1 Then ExitLoop
$title = $RS.Fields(1).value
$icon = $RS.Fields(2).value
$chk = $RS.fields(4).value
_GUICtrlListView_BeginUpdate($listnum)
_GUICtrlListView_InsertItem($listnum, $title, -1, $i)
_GUICtrlListView_EndUpdate($listnum)
If $chk = True Then
_GUIImageList_AddIcon($hImage, $icon, 1, True)
Else
_GUIImageList_AddIcon($hImage, $icon, 0, True)
EndIf
$i += 1
$RS.movenext
WEnd
将取数据单独写成一个func,结果返回数组,测试花了多少时间,占用多大的资源.
这块没什么问题后,将官方例程中的:
; Add items
For $i = 1 To 10000
_GUICtrlListView_AddItem($hListView, "Item"&$i, 0)
Next
相应写法改成数组,如:
For $i = 0 To UBound($a)-1
GUICtrlCreateListViewItem($a[$i], $ListView1)
Next
或
For $i = 0 To UBound($a)-1
_GUICtrlListView_AddItem($hListView, $a[$i], 0)
Next
再做测试 太长的源码，下次上成附件，否者仍贴
kn007 发表于 2009-12-31 14:15 http://www.autoitx.com/images/common/back.gif
呵呵，不好意思哈，我怕是大家下载附件要收钱啊，我也是为大家省一点，才这样的，给我处分吧，我接受~！ 回复 14# Netfox
可以双管齐下，贴源码+附件~
页:
[1]
2