落仙苑

UiBot定义数组

Sun, 17 Apr 2022 21:04:32 +0800

定义一维数组

a=[]

定义多维数组

定义二位数组

a = Array([2,2],null)

首页红白机小游戏使用说明

Sun, 06 Feb 2022 14:22:28 +0800

魂斗罗,超级玛丽,忍者龙剑传等等，可在手机电脑上在线玩fc游戏的网站,近乎完美的还原任天堂FC/NES原版ROM游戏的视频和声音。

FC（俗称红白机/小霸王游戏）也曾在80、90年代风靡中国大陆。那个时候也有很多人管它叫红白机或小霸王游戏机。相信很朋友都有在童年时代玩红白机游戏的经历，也有很多朋友就是从这个神奇的主机开始了自己的游戏生涯。FC上出了不少经典的游戏，魂斗罗、坦克大战、忍者龙剑传、超级玛丽……虽然那个时候无论是手柄还是游戏画面都不能和现在比，但是这些游戏给我们的童年带来了美好的回忆。

现在想随时随地回忆童年？在线模拟器来了，无需下载，网页端点开进入时间漩涡，完全免费。完美适配移动端及电脑端，内置各类原版卡带，马桶时间杀手。一秒找回童年时光！

上 W

下 S

左 A

右 D

A J

B K

AA Z

BB X

Start Enter

Select Ctrl

手机翻转横向自动横屏

（打开红白机）

UIBOT停车助手源码v2.2及更新日志

Sun, 06 Feb 2022 13:47:53 +0800

用uibot写的停车助手源码，欢迎uibot爱好者帮助与指点

Dim VAR_Message_WXH_ADMIN = "***"  
Dim VAR_Time_Loop_Minute_01 = 14*60*1000  
Dim VAR_Time_Message_Time_01 = 20*1000 
Dim VAR_Time_BigLoop_Delay = 20*60*1000     
Dim VAR_Version = "停车助手V2.2.2"      

Dim VAR_Time_Temp_02 = VAR_Time_Loop_Minute_01/60/1000
Dim VAR_Loop_CS_01 = 1
Dim VAR_JF_CS_01 = 0 
Dim VAR_LC_CS_01 = 0    
Dim VAR_JL_PDSB_CS = 0  

Dim VAR_PD_SF_TTCP = "" 
Dim VAR_PD_SF_KP = ""  
Dim VAR_PD_SF_JF = ""    
Dim VAR_PD_SF_JF_YES = ""    
Dim VAR_PD_SF_JF_NO = ""    
Dim VAR_PD_SF_QF_YES = False   
Dim VAR_PD_SF_QF_NO =  True    
Dim VAR_PD_YWBS_XNY = ""       
Dim VAR_PD_CPWS_TEMP = "" 


Dim VAR_Message_WXH_TEMP = "***" 
Dim VAR_Message_WX_TEMP =""
Dim i = 0
Dim VAR_Loop_CPWS = "1"  
Dim VAR_CP_HM_TEMP = ""  

Dim VAR_DTime_Hour_Temp = ""    
Dim VAR_DTime_Minute_Temp = "" 
Dim VAR_DTime_Second_Temp = ""  
Dim VAR_DTime_Timer_01 = 0  
Dim VAR_DTime_Timer_02 = 0  
Dim VAR_DTime_Timer_02J01 = 0   

DIM VAR_CS_OPEN_GO = 0 
Dim VAR_CS_OPEN_END =0  

Dim ZD_ZB_01={"第一个空格的X坐标":"527","第一个空格的Y坐标":"333", 
"川的X坐标":"563","川的Y坐标":"633",   
"0的X坐标":"866","0的Y坐标":"491",   
"1的X坐标":"503","1的Y坐标":"491",   
"2的X坐标":"543","2的Y坐标":"491",   
"3的X坐标":"582","3的Y坐标":"491",    
"4的X坐标":"625","4的Y坐标":"491",    
"5的X坐标":"663","5的Y坐标":"491",  
"6的X坐标":"704","6的Y坐标":"491",    //6
"7的X坐标":"745","7的Y坐标":"491",    //7
"8的X坐标":"787","8的Y坐标":"491",    //8
"9的X坐标":"825","9的Y坐标":"491",    //9
"A的X坐标":"522","A的Y坐标":"586",    //A  
"B的X坐标":"724","B的Y坐标":"633",    //B  //C
"D的X坐标":"605","D的Y坐标":"586",    //D
"E的X坐标":"584","E的Y坐标":"538",   //E //F 
"G的X坐标":"684","G的Y坐标":"586",   //G
"H的X坐标":"725","H的Y坐标":"584",   ///H //J //K 
"L的X坐标":"842","L的Y坐标":"586",   //L 
"M的X坐标":"808","M的Y坐标":"631",   //M
"N的X坐标":"764","N的Y坐标":"634",    //N   //O //P
"Q的X坐标":"502","Q的Y坐标":"541",   //Q //R
"S的X坐标":"563","S的Y坐标":"584", //S 
"T的X坐标":"664","T的Y坐标":"538",    //T
"U的X坐标":"746","U的Y坐标":"537",    //U //V //W //X //Y //Z
"退格的X坐标":"855","退格的Y坐标":"634",    //DEL
"查询的X坐标":"685","查询的Y坐标":"446"}          //查询


Function FUNC_DJ_AJ_ZB_KG_01() 
    Mouse.Move(CInt(ZD_ZB_01["第一个空格的X坐标"]),CInt(ZD_ZB_01["第一个空格的Y坐标"]), False,{"iDelayAfter":300,"iDelayBefore":200})
    TracePrint(CInt(ZD_ZB_01["第一个空格的X坐标"]),CInt(ZD_ZB_01["第一个空格的Y坐标"]))
    Mouse.Click("left", "click", [],{"iDelayAfter":300,"iDelayBefore":200})
    TracePrint("第一个空格所在位置的坐标：",ZD_ZB_01["第一个空格的X坐标"],ZD_ZB_01["第一个空格的Y坐标"])
End Function
Function FUNC_DJ_AJ_ZB_KG_08() 
    Mouse.Move(CInt(ZD_ZB_01["第八个空格的X坐标"]),CInt(ZD_ZB_01["第八个空格的Y坐标"]), False,{"iDelayAfter":300,"iDelayBefore":200})
    Mouse.Click("left", "click", [],{"iDelayAfter":300,"iDelayBefore":200})
    TracePrint("第八个空格所在位置的坐标：",ZD_ZB_01["第八个空格的X坐标"],ZD_ZB_01["第八个空格的Y坐标"])
End Function
Function FUNC_DJ_CX_ZB()   
    Mouse.Move(CInt(ZD_ZB_01["查询的X坐标"]),CInt(ZD_ZB_01["查询的Y坐标"]), False,{"iDelayAfter":300,"iDelayBefore":200})
    Mouse.Click("left", "click", [],{"iDelayAfter":300,"iDelayBefore":200})
    TracePrint("查询所在位置的坐标：",ZD_ZB_01["查询的X坐标"],ZD_ZB_01["查询的Y坐标"])
End Function
Function FUNC_DJ_TG_ZB()   
    Mouse.Move(CInt(ZD_ZB_01["退格的X坐标"]),CInt(ZD_ZB_01["退格的Y坐标"]), False,{"iDelayAfter":300,"iDelayBefore":200})
    Mouse.Click("left", "click", [],{"iDelayAfter":300,"iDelayBefore":200})
    TracePrint("退格所在位置的坐标：",ZD_ZB_01["退格的X坐标"],ZD_ZB_01["退格的Y坐标"])
End Function



Function FUNC_BACK_DESKTOP()
    TracePrint("返回桌面")
    Keyboard.Press("M", "press", ["Win"],{"iDelayAfter":300,"iDelayBefore":200,"sSimulate":"simulate"})
End Function


Function FUNC_CLOSE_WX() 
    #icon("@res:83qklh4q-1r9c-v4qe-ssia-9ts51d62e5iv.png")
    Mouse.Action({"wnd":[{"app":"WeChat","cls":"WeChatMainWndForPC","title":"微信*"}],"ctrl":[{"role":"ROLE_SYSTEM_CLIENT","name":"微信*"},{"role":"ROLE_SYSTEM_PUSHBUTTON","name":"关闭"}]},"left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
End Function


Function FUNC_OPEN_WX_Message_TEMP()   
    #icon("@res:c5j0jdon-1tp4-h8ca-5hhb-bdfgl6q7hgcv.png")
    Mouse.Action({"wnd":[{"app":"explorer","cls":"Progman","title":"Program Manager"},{"cls":"SHELLDLL_DefView"},{"cls":"SysListView32","title":"FolderView","ctrlid":1,"aaname":"桌面"}],"ctrl":[{"role":"ROLE_SYSTEM_LIST","name":"桌面"},{"role":"ROLE_SYSTEM_LISTITEM","name":"微信"}]},"left","dbclick",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
    #icon("@res:6l74oc0g-9h4e-rmkh-slvn-3b3er4fjk0qm.png")
    Keyboard.InputText({"wnd":[{"app":"WeChat","cls":"WeChatMainWndForPC","title":"微信*"}],"ctrl":[{"role":"ROLE_SYSTEM_CLIENT","name":"微信*"},{"role":"ROLE_SYSTEM_TEXT","name":"搜索"}]},VAR_Message_WXH_TEMP,True,20,10000,{"bContinueOnError":False,"iDelayAfter":1000,"iDelayBefore":500,"bSetForeground":True,"sSimulate":"message","bValidate":False,"bClickBeforeInput":False})
    Keyboard.Press("Enter", "press", [],{"iDelayAfter":300,"iDelayBefore":200,"sSimulate":"simulate"})
    #icon("@res:i9tl2p5t-c6ts-1jtg-8tuh-6lek654rsin7.png")
    Keyboard.InputText({"wnd":[{"app":"WeChat","cls":"WeChatMainWndForPC","title":"微信*"}],"ctrl":[{"role":"ROLE_SYSTEM_CLIENT","name":"微信*"},{"role":"ROLE_SYSTEM_TEXT","name":"输入"}]},"[机器人消息]"&VAR_Message_WX_TEMP,True,20,10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":500,"bSetForeground":True,"sSimulate":"message","bValidate":False,"bClickBeforeInput":False})
    Keyboard.Press("Enter", "press", ["Ctrl"],{"iDelayAfter":300,"iDelayBefore":200,"sSimulate":"simulate"})
    FUNC_CLOSE_WX()
End Function



Function FUNC_OPEN_WX_XCX_TC()  
    #icon("@res:tebh7svv-55oq-dnf8-s7dr-nrmg778hcnnk.png")
    Mouse.Action({"wnd":[{"app":"explorer","cls":"Progman","title":"Program Manager"},{"cls":"SHELLDLL_DefView"},{"cls":"SysListView32","title":"FolderView","ctrlid":1,"aaname":"桌面"}],"ctrl":[{"role":"ROLE_SYSTEM_LIST","name":"桌面"},{"role":"ROLE_SYSTEM_LISTITEM","name":"E停管家"}]},"left","dbclick",5000,{"bContinueOnError":False,"iDelayAfter":15000,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
End Function

Function FUNC_CLOSE_WXXCX_TC()  
    Dim VAR_AN_XCX_CLOSE
VAR_AN_XCX_CLOSE = UiElement.Exists(@ui"按钮_关闭",{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
If VAR_AN_XCX_CLOSE = True
    #icon("@res:94nd1drn-r2nb-nv4i-0m96-nqf7tilvtkeq.png")
    Mouse.Action({"wnd":[{"app":"WeChatApp","cls":"Chrome_WidgetWin_0","title":"E停管家"}],"ctrl":[{"role":"ROLE_SYSTEM_PUSHBUTTON","name":"关闭","idx":1}]},"left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
End If

End Function

Function FUNC_DJ_CP_temp()   

    FUNC_PD_XCX_CPWS()  
    If VAR_Loop_CPWS = 7-1 And  VAR_PD_CPWS_TEMP = 7-1
        FUNC_DJ_AJ_ZB_KG_01() 

    Elseif VAR_Loop_CPWS = 7-1 And  VAR_PD_CPWS_TEMP = 8-1
        FUNC_DJ_AJ_ZB_KG_08() 
        FUNC_DJ_TG_ZB()  
        FUNC_DJ_AJ_ZB_KG_01() 
    ElseIf VAR_Loop_CPWS = 8-1 And  VAR_PD_CPWS_TEMP = 7-1
        FUNC_DJ_AJ_ZB_KG_08() 
        FUNC_DJ_AJ_ZB_KG_01() 

    ElseIf VAR_Loop_CPWS = 8-1 And  VAR_PD_CPWS_TEMP = 8-1
        FUNC_DJ_AJ_ZB_KG_01() 

    Else 
        TracePrint("判断车牌位数有误")
    End If
    For I=0 To VAR_Loop_CPWS 
        TracePrint(ARR_CP_TEMP[I])
        Mouse.Move(CINT(ZD_ZB_01[ARR_CP_TEMP[I]&"的X坐标"]), CINT(ZD_ZB_01[ARR_CP_TEMP[I]&"的Y坐标"]), False,{"iDelayAfter":300,"iDelayBefore":200})
        Mouse.Click("left", "click", [],{"iDelayAfter":300,"iDelayBefore":200})
        TracePrint(ARR_CP_TEMP[I]&"所在位置的坐标：",ZD_ZB_01[ARR_CP_TEMP[I]&"的X坐标"], ZD_ZB_01[ARR_CP_TEMP[I]&"的Y坐标"])
    Next
    FUNC_DJ_CX_ZB()  
End Function

Function FUNC_Dtime()   
    dTime = Time.Now()
    VAR_DTime_Hour_Temp = Time.Hour(dTime)
    VAR_DTime_Minute_Temp = Time.Minute(dTime)
    VAR_DTime_Second_Temp = Time.Second(dTime)

    TracePrint(VAR_DTime_Hour_Temp)
    TracePrint(VAR_DTime_Minute_Temp )
    TracePrint(VAR_DTime_Second_Temp)

End Function


Function FUNC_PD_XCX_CPWS() 
    VAR_PD_YWBS_XNY = UiElement.Exists(@ui"文字_新能源",{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
    If VAR_PD_YWBS_XNY = True 
        TracePrint("非新能源查询")
        VAR_PD_CPWS_TEMP = 7-1
    Else 
        TracePrint("新能源查询")
        VAR_PD_CPWS_TEMP = 8-1
    End If
End Function

Function FUNC_CXJF_01()        
    VAR_Loop_CPWS = 7-1
    VAR_CP_HM_TEMP=ARR_CP_TEMP[0]&ARR_CP_TEMP[1]&ARR_CP_TEMP[2]&ARR_CP_TEMP[3]&ARR_CP_TEMP[4]&ARR_CP_TEMP[5]&ARR_CP_TEMP[6]
    FUNC_BACK_DESKTOP()
    FUNC_OPEN_WX_XCX_TC() 
    FUNC_DJ_CP_temp() 
    FUNC_PD_SF_TTCP()
    FUNC_CLOSE_WXXCX_TC()    
End Function
Function FUNC_CXJF_02()         
    VAR_Loop_CPWS = 8-1
    VAR_CP_HM_TEMP=ARR_CP_TEMP[0]&ARR_CP_TEMP[1]&ARR_CP_TEMP[2]&ARR_CP_TEMP[3]&ARR_CP_TEMP[4]&ARR_CP_TEMP[5]&ARR_CP_TEMP[6]&ARR_CP_TEMP[7]
    FUNC_BACK_DESKTOP()
    FUNC_OPEN_WX_XCX_TC() 
    FUNC_DJ_AJ_ZB_KG_08() 
    FUNC_DJ_CP_temp() 
    FUNC_PD_SF_TTCP() 
    FUNC_CLOSE_WXXCX_TC()    
End Function

Function FUNC_pd_SF_QF()    
    Dim VAR_PD_SF_QF_YES = False
    Dim VAR_PD_SF_QF_NO =  True

    VAR_PD_SF_QF_YES = UiElement.Exists(@ui"文字_立即支付3",{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
    VAR_PD_SF_QF_NO = UiElement.Exists(@ui"客户端_确定",{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})

    If VAR_PD_SF_QF_YES=True 
        VAR_Message_WX_TEMP = VAR_CP_HM_TEMP&":有欠费信息，机器人无法正常为你扫码，请结清欠费。[XX]"
        FUNC_OPEN_WX_Message_TEMP()
        Delay(1000)

    End If

End Function
Function FUNC_PD_SF_TTCP()    

  
    #icon("@res:jqcc56sg-akim-mme0-gvcn-j23agd6ac8qg.png")
    VAR_PD_SF_TTCP = UiElement.Exists({"wnd":[{"app":"WeChatApp","cls":"Chrome_WidgetWin_0","title":"车牌\"*\"查询失败"}],"ctrl":[{"role":"ROLE_SYSTEM_DIALOG","name":"车牌\"*\"查询失败"},{"role":"ROLE_SYSTEM_STATICTEXT","name":"车牌\"*\"查询失败"}]},{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":1000})
    TracePrint("是否还未贴停车票：",VAR_PD_SF_TTCP)
    #icon("@res:jqcc56sg-akim-mme0-gvcn-j23agd6ac8qg.png")
    VAR_PD_SF_TTCP = UiElement.Exists({"wnd":[{"app":"WeChatApp","cls":"Chrome_WidgetWin_0","title":"车牌\"*\"查询失败"}],"ctrl":[{"role":"ROLE_SYSTEM_DIALOG","name":"车牌\"*\"查询失败"},{"role":"ROLE_SYSTEM_STATICTEXT","name":"车牌\"*\"查询失败"}]},{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":1000})
    TracePrint("是否还未贴停车票：",VAR_PD_SF_TTCP)

 

    If VAR_PD_SF_TTCP = True
        TracePrint("还未贴停车票")
        #icon("@res:19e4osg0-bhad-7acm-or2e-2cvf3bode96n.png")
        Mouse.Action({"wnd":[{"app":"WeChatApp","cls":"Chrome_WidgetWin_0","title":"车牌\"*\"查询失败"}],"ctrl":[{"role":"ROLE_SYSTEM_DIALOG","name":"车牌\"*\"查询失败"},{"role":"ROLE_SYSTEM_PUSHBUTTON","name":"确定"},{"role":"ROLE_SYSTEM_CLIENT","name":"确定"}]},"left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
    Else
        TracePrint("已经开具停车票")
        FUNC_PD_SF_JF()
    End If
End Function

Function FUNC_PD_SF_JF()  
    VAR_PD_SF_JF_YES = UiElement.Exists({"wnd":[{"app":"WeChatApp","cls":"Chrome_WidgetWin_0","title":"E停管家"},{"cls":"XWeb_Chrome_WidgetWin_0"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"ctrl":[{"role":"ROLE_SYSTEM_PUSHBUTTON","name":"立即缴费"},{"role":"ROLE_SYSTEM_STATICTEXT","name":"立即缴费"}]},{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
    #icon("@res:cjjo2hv4-ed08-96g7-7l41-km1q9tl7ajic.png")
    VAR_PD_SF_JF_NO = UiElement.Exists({"wnd":[{"app":"WeChatApp","cls":"Chrome_WidgetWin_0","title":"E停管家"},{"cls":"XWeb_Chrome_WidgetWin_0"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"ctrl":[{"role":"ROLE_SYSTEM_PUSHBUTTON","name":"我要离场"},{"role":"ROLE_SYSTEM_STATICTEXT","name":"我要离场"}]},{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})

    VAR_PD_SF_QF_YES = UiElement.Exists(@ui"文字_立即支付3",{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
    VAR_PD_SF_QF_NO = UiElement.Exists(@ui"客户端_确定",{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})


    If VAR_PD_SF_JF_NO =True       
        TracePrint("还未计费直接离场")
        VAR_LC_CS_01 = VAR_LC_CS_01+1
        #icon("@res:i5lq4fau-hdj7-b4ho-94c6-udlmeoir5uun.png")
        Mouse.Action({"wnd":[{"app":"WeChatApp","cls":"Chrome_WidgetWin_0","title":"E停管家"},{"cls":"XWeb_Chrome_WidgetWin_0"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"ctrl":[{"role":"ROLE_SYSTEM_PUSHBUTTON","name":"我要离场"},{"role":"ROLE_SYSTEM_STATICTEXT","name":"我要离场"}]},"left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
        #icon("@res:1cko5j8q-altq-ucsr-e88d-4bnijha0g9hk.png")
        Mouse.Action({"wnd":[{"app":"WeChatApp","cls":"Chrome_WidgetWin_0","title":"E停管家"},{"cls":"XWeb_Chrome_WidgetWin_0"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"ctrl":[{"role":"ROLE_SYSTEM_STATICTEXT","name":"确定出场"}]},"left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
        Mouse.Action(@ui"文字_完成出场","left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
        Mouse.Action(@ui"按钮_关闭","left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
        TracePrint("缴费成功")
        Dialog.Notify("缴费成功", "LXYDE机器人", 1)

        VAR_Message_WX_TEMP = VAR_CP_HM_TEMP&":已被贴停车票，机器人已为您自动扫码离场[V]"
        FUNC_OPEN_WX_Message_TEMP()
        Delay(1000)
        VAR_Message_WXH_TEMP = "落仙苑"
        FUNC_OPEN_WX_Message_TEMP()
    ElseIf VAR_PD_SF_JF_YES = True     
        TracePrint("已经计费需要手动缴费")
        VAR_JF_CS_01 = VAR_JF_CS_01+1
        Dialog.Notify("已经开始计费", "LXYDE停车助手", 1)
        VAR_Message_WX_TEMP = VAR_CP_HM_TEMP&":收费人员已使用您上次的停车记录开始计费，机器人无法完成扫码操作，需要您手动缴费[X]。"
        FUNC_OPEN_WX_Message_TEMP()
        Delay(1000)
        VAR_Message_WXH_TEMP = "落仙苑"
        FUNC_OPEN_WX_Message_TEMP()

    ElseIf VAR_PD_SF_QF_YES=True   
        VAR_Message_WX_TEMP = VAR_CP_HM_TEMP&":有欠费信息，机器人无法正常为你扫码，请结清欠费。[XX]"
        FUNC_OPEN_WX_Message_TEMP()
        Delay(1000)


    Else
        TracePrint("程序可能出错")       
        VAR_Message_WXH_TEMP = VAR_Message_WXH_ADMIN    
        VAR_Message_WX_TEMP = "查询车牌"&VAR_CP_HM_TEMP&"时程序发生错误，请检查程序运行情况。"
        FUNC_OPEN_WX_Message_TEMP()
        VAR_JL_PDSB_CS = VAR_JL_PDSB_CS+1
    End If
End Function


VAR_Loop_CS_01 = cint(INI.Read(@res"data\\index.ini", "loop", "LOOP_CS_01", ""))
VAR_LC_CS_01 = cint(INI.Read(@res"data\\index.ini", "loop", "LC_CS_01", ""))
VAR_JF_CS_01 = cint(INI.Read(@res"data\\index.ini", "loop", "JF_CS_01", ""))
VAR_JL_PDSB_CS = cint(INI.Read(@res"data\\index.ini", "loop", "JL_PDSB_CS", ""))


Do While 1=1
    dTime = Time.Now()
    VAR_DTime_Hour_Temp = Time.Hour(dTime)
    VAR_DTime_Minute_Temp = Time.Minute(dTime)
    Do While (VAR_DTime_Hour_Temp >=8 And VAR_DTime_Hour_Temp <=19) Or (VAR_DTime_Hour_Temp = 20 And    VAR_DTime_Minute_Temp <= 15)
        If VAR_CS_OPEN_GO = 0       
            FUNC_BACK_DESKTOP()
            //-----------------------------------------------------
            VAR_Message_WXH_TEMP = VAR_Message_WXH_ADMIN  
            VAR_Message_WX_TEMP = "BOSS："&VAR_Version&"已开启巡逻。程序每"&CStr(VAR_Time_Temp_02)&"分钟会执行一次。若按时未收到消息，说明程序出错，需重启。" //微信消息参数-微信内容
            FUNC_OPEN_WX_Message_TEMP()   
            //-------------------------------------------------------
            VAR_CS_OPEN_GO = 1     
        End If  


      
        VAR_DTime_Timer_01 = Time.Timer() 
        TracePrint("第一个时间戳为：",$PrevResult)

        //------------------------------------------------  
        ARR_CP_TEMP = ["川","T","*","*","*","*","*"]
        VAR_Message_WXH_TEMP = "***"
        FUNC_CXJF_01()   
        //********************************************************
        VAR_DTime_Timer_02 = Time.Timer()  
            TracePrint("第一个时间戳为：",$PrevResult)
        VAR_DTime_Timer_02J01=VAR_DTime_Timer_02-VAR_DTime_Timer_01 
            TracePrint("时间差为：",$PrevResult)
        VAR_Time_Loop_Minute_DELAY_01 = VAR_Time_Loop_Minute_01 - cint(VAR_DTime_Timer_02J01*1000) - VAR_Time_Message_Time_01   //计算下一次循环的延迟时间
            TracePrint("需要延迟时间为：",$PrevResult)
        If VAR_Time_Loop_Minute_DELAY_01 <=0    
            FUNC_BACK_DESKTOP()
            VAR_Message_WXH_TEMP = VAR_Message_WXH_ADMIN    
            VAR_Message_WX_TEMP = "程序延迟时间不足，可能车牌过多，或程序执行时间过长，需要优化程序。"   //微信消息参数-微信内容
            FUNC_OPEN_WX_Message_TEMP()    
        End If
   
        VAR_Message_WXH_TEMP = VAR_Message_WXH_ADMIN   
        VAR_Message_WX_TEMP = "停车助手已经成功巡逻"&CStr(VAR_Loop_CS_01)&"次,其中免费离场"&CSTR(VAR_LC_CS_01)&"次；提醒缴费"&CSTR(VAR_JF_CS_01)&"次，判断出错"&CSTR(VAR_JL_PDSB_CS)&"个。程序将在"&CStr(VAR_Time_Temp_02)&"分钟后再次执行。"  //微信消息参数-微信内容
        FUNC_OPEN_WX_Message_TEMP()
        VAR_Loop_CS_01 = VAR_Loop_CS_01+1

       
        INI.Write(@res"data\\index.ini", "loop", "LOOP_CS_01", cstr(VAR_Loop_CS_01))
        INI.Write(@res"data\\index.ini", "loop", "LC_CS_01", cstr(VAR_LC_CS_01))
        INI.Write(@res"data\\index.ini", "loop", "JF_CS_01", cstr(VAR_JF_CS_01))
        INI.Write(@res"data\\index.ini", "loop", "JL_PDSB_CS", cstr(VAR_JL_PDSB_CS))

        Delay(VAR_Time_Loop_Minute_DELAY_01)

        dTime = Time.Now()
        VAR_DTime_Hour_Temp = Time.Hour(dTime)
        VAR_DTime_Minute_Temp = Time.Minute(dTime)
      
        VAR_CS_OPEN_END =0  
    Loop
    TracePrint("开始执行非工作日程序")

    VAR_CS_OPEN_GO = 0  

    If VAR_CS_OPEN_END = 0 
        FUNC_BACK_DESKTOP()

        VAR_Message_WXH_TEMP = VAR_Message_WXH_ADMIN    
        VAR_Message_WX_TEMP = "现在是非工作时间，程序暂停执行" 
        FUNC_OPEN_WX_Message_TEMP()    
      
        VAR_CS_OPEN_END =1
    End If
    Delay(VAR_Time_BigLoop_Delay)


Loop

Blog变更为PHP！

Fri, 01 Oct 2021 13:35:04 +0800

即日起Blog变更使用php！

关于协同办公系统无法下载公文失败的解决方法之DOM存储

Tue, 08 Dec 2015 11:23:56 +0800

协同办公系统如果下载时提示缺少对象，且删除控件重新安装后，依然无法解决，可使用下面方法

1、首先，在浏览器的工具中，选择internet选项

2、然后选择高级

3、在设置中取消“启用DOM存储”

4、重启浏览器

来自为知笔记(Wiz)

《在单位不能犯的三个大忌，说的太好了！》读后感

Sat, 05 Dec 2015 23:04:27 +0800

点击看《在单位不能犯的三个大忌，说的太好了！》原文（笔记内外联）（不过不看也无所谓，我写的也许和原文也没多大关系）。这篇文章我只喜欢前面70%的内容，后面的内容没有多大的感触，前面比较有感触。所以前面的内容，我觉得叫《感恩单位》比较恰当，哈哈。

现在的我们，有吃有喝，有车有房，能花就花。这并不说明我们能力有多强，创造财富的手段有多高明，只是我们都站在了巨人的肩膀上。而这个巨人不单是单位，还有父母。

有的人也许从小到大浑浑噩噩，只用努力小许就能达到想要的生活；

有的人也许并不能从上一代那里得到多大的帮助，一直靠着自己的努力，用自己的双手来创造自己的生活；

有的人也许比任何人都努力，但可惜他们用了一生的时间也不能走出那个圈。

我一直都比较崇拜第二种人，在我的同事圈中，就有那么一个存在。而对于这三种生活也并没有什么区别或是对错，只是我们在继承父母DNA的同时也继承了父母的生活，我们从不同的目的出发，选择不同的交通工具，去看不同的风景，最后达到不同的目的地。谁又能说哪种旅程更为精彩，哪种旅程毫无意义？一切自己开心就好。

然而到了那个该长大的年纪，还是只有靠自己的双手来养活这张好吃的嘴。

我记得我和好几个同事讨论个一个话题，说：总觉得我们总算是幸运，并没有什么生存技能的我们生活到现在没冷过没饿过，而再幸运些的人也有车有房了。在诸多的回答中，我们部门经理回答最让我难忘，他说：是的，所以我们要懂得感恩。虽然平日的工作强度要比有些工作多好几倍，人也会时常疲惫，但是工作给了我们现在想要的生活，让我们过的拥有光彩，所以要感恩单位，珍惜工作。

对啊，时常感觉自己很累，还有时候会有退缩的想法。想想自己又给单位创造了多大的价值呢？这价值和回报是否成正比呢？所以还是收回那消极的想法，感恩单位，好好工作吧。

全文图片来自网络

附件列表

u=4211997543,2076046325&fm=21&gp=0.jpg