首页 > 其他分享 >autoit_passwordbook

autoit_passwordbook

时间:2022-10-15 17:55:30浏览次数:58  
标签:Case GUIScrollbars passwordbook autoit password hello buttonList

autoit password book


#include <GUIConstantsEx.au3>
#include "GUIScrollbars_Ex.au3"

Global $buttonList[100] = [0]
; Create GUI with red background
$hGUI = GUICreate("PasswordBook", 400, 600)
GUISetBkColor(0xf5f5f5, $hGUI)
; To get cursor keys to scroll GUI, create controls AFTER GUISetState
GUISetState()

Do
   $iCount = InputBox("Password Input", "Password","", "*", 240, 130)
	 ; if input is none or click cancel button, then exit the script
	 ; if input some password but is wrong,then repeat the password input until the password is right
	 If $iCount == '' Then 
	 	Exit
	 EndIf
Until $iCount == '你的密码'

; Create button to show scrolling
For $i = $buttonList[0] + 1 To 10
			$buttonList[$i] = GUICtrlCreateButton($i, 10, $i * 35 , 300, 30)
Next

; Generate scrollbars - Yes, this is all you need to do!!!!!!!
_GUIScrollbars_Generate($hGUI, 400, 1000)

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $buttonList[1]
			MsgBox(0,'title','hello 1') 
		Case $buttonList[2]
			MsgBox(0,'title','hello 2') 
    Case $buttonList[3]
			MsgBox(0,'title','hello 3') 

	EndSwitch

	_GUIScrollbars_EventMonitor()
WEnd

标签:Case,GUIScrollbars,passwordbook,autoit,password,hello,buttonList
From: https://www.cnblogs.com/zhuoss/p/16794660.html

相关文章

  • # autoit 自动翻译并附注 pdf中不认识的单词
    autoit自动翻译并附注pdf中不认识的单词学印尼语遇到一个问题,即需要大量复制pdf文本中的个别单词到谷歌翻译中,这个过程需要重复点击和按键,及其耗费时间,为此写了一个脚本......