Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [General]
- SyntaxVersion=2
- BeginHotkey=121
- BeginHotkeyMod=0
- PauseHotkey=0
- PauseHotkeyMod=0
- StopHotkey=123
- StopHotkeyMod=0
- RunOnce=1
- EnableWindow=
- MacroID=a2892cd2-d123-44c6-a97b-b8d25020f719
- Description=我的脚本1_自动备份
- Enable=0
- AutoRun=0
- [Repeat]
- Type=0
- Number=1
- [SetupUI]
- Type=2
- QUI=
- [Relative]
- SetupOCXFile=
- [Comment]
- [Script]
- '==========以下是按键精灵录制的内容==========
- Dim codefile, eachline, codefile_path,Text
- Dim shoulparse
- shouldparse = "~!@#$%^&*()_+QWERTYUIOP{}|ASDFGHJKL:""ZXCVBNM<>?"
- parseto = "`1234567890-=qwertyuiop[]\asdfghjkl;'zxcvbnm,./"
- codefile_path = Plugin.File.SelectFile()
- // codefile = Plugin.File.OpenFile(codefile_path)
- Delay (5000)
- // codefile = Plugin.File.OpenFile(codefile_path)
- // Text = Plugin.File.ReadFileEx(codefile_path)
- // TracePrint Text
- // Dim debug_text
- Dim fso
- Set fso = CreateObject("Scripting.FileSystemobject")
- Dim f
- Set f=fso.OpenTextFile(codefile_path,1)
- Do Until f.AtEndOfStream
- strline = Trim(f.Readline)
- For i=1 to len(strline)
- Dim topress, pos
- topress = mid(strline, i, 1)
- debug_text = debug_text + topress
- pos = InStr(shouldparse, topress)
- If pos = 0 Then
- If topress = Chr(13) or topress = Chr(10) Then
- TracePrint "Get\n"
- KeyPress Chr(13), 1
- ElseIf topress = " " Then
- TracePrint "Get Space"
- KeyPress "Space", 1
- Else
- KeyPress topress, 1
- End if
- Else
- TracePrint "Get toparse"
- KeyDown "Shift", 1
- KeyPress mid(parseto,pos,1), 1
- KeyUp "Shift", 1
- End if
- TracePrint topress & ";"
- Next
- KeyPress "Enter",1
- Loop
- /*
- For i=1 to len(Text)
- Dim topress, pos
- topress = mid(Text, i, 1)
- debug_text = debug_text + topress
- pos = InStr(shouldparse, topress)
- If pos = 0 Then
- If topress = Chr(13) or topress = Chr(10) Then
- TracePrint "Get\n"
- KeyPress Chr(13), 1
- ElseIf topress = " " Then
- TracePrint "Get Space"
- KeyPress "Space", 1
- Else
- KeyPress topress, 1
- End if
- Else
- TracePrint "Get toparse"
- KeyDown "Shift", 1
- KeyPress mid(parseto,pos,1), 1
- KeyUp "Shift", 1
- End if
- TracePrint topress & ";"
- Next
- */
- // TracePrint debug_text
- // Call lib.键盘.键盘按键组(Text,0,50)
- // Plugin.File.CloseFile(codefile)
- '==========以上是按键精灵录制的内容==========
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement