按鍵精靈輸出怎麼寫 按鍵精靈後臺怎麼輸出大寫字母

Private Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer

Hwnd = Plugin.Window.MousePoint()

Do

c = 檢測CapsLock狀態（）

//檢測CapsLock是否爲開啓狀態，開啓爲0，關閉爲1

TracePrint c

If c = 1 Then

//判斷CapsLock狀態，如果未開啓則開啓，如果已開啓則無動作

KeyPress "CapsLock", 1

End If

Call Plugin.Bkgnd.KeyPress(Hwnd, 65)

KeyPress "CapsLock", 1

Loop

Function 檢測CapsLock狀態（）

ret = GetKeyState(20)

ret = ret & 1

If ret = 1 Then

檢測CapsLock狀態=1

Else

檢測CapsLock狀態=0

End If

End Function

這個只能靠更改大小寫狀態來實現，其實函數判斷不是必要的，如果你不在乎大小寫的話全程大寫都可以的，其實“我的命令庫”—“鍵盤”裏面的鍵碼組能自由使用大寫還是小寫，不過我不知道如何把這個轉後臺。

Dim txt， 點擊間隔， i, Shul, obj， 彈出對話框，數組 txt = "設定每個座標點的延遲，單位毫秒，" & vbcr & vbcr & "如 50" & vbcr & vbcr & "表示每個座標點擊間隔50毫秒" 點擊間隔 = InputBox(txt， "設定點擊間隔") If 點擊間隔 = "" Then 點擊間隔 = 10 ElseIf cint（點擊間隔） < 10 Then 點擊間隔 = 10 End If TracePrint "點擊間隔 = " & 點擊間隔 If Plugin.File.IsFileExist("D：鼠標多點連擊腳本配置.txt") = True Then Set obj = CreateObject("WScript.Shell") txt = "是否讀取儲存的座標" & vbcr & vbcr & "是 ： 確定 ，用儲存的座標直接執行 " & vbcr & vbcr & "否 ： 取消 ， 重新獲取座標點 " 彈出對話框 = Cint(obj.Popup(txt, 0， "是否讀取"， 1)) Set obj = Nothing If 彈出對話框 = 1 Then Call 讀取配置檔案並儲存座標到數組（） Call 鼠標點擊座標（） Else Call Plugin.File.DeleteFile("D：鼠標多點連擊腳本配置.txt") Rem 手動獲得鼠標座標20 i = 0 Do Rem 不正確按鍵碼重新獲取23 txt = "設定第" & i + 1 & "個點的座標" & vbcr & vbcr & "鼠標移動到目標後按Ctrl確定"& vbcr & vbcr &"如果設定結束，請按Shitf後執行多點點擊" MessageBox txt key = WaitKey() If key = 17 Then '按Ctrl Redim Preserve x(i), y(i) GetCursorPos x(i), y(i) TracePrint "第 " & i + 1 & " 座標= " & x(i) & " " & y(i) Call Plugin.File.WriteFileEx("D：鼠標多點連擊腳本配置.txt", x(i) & "," & y(i)) ElseIf key = 16 and i > 0 Then '按Shift Exit Do Else Goto 不正確按鍵碼重新獲取23 End If i = i + 1 Delay 1 Loop Call 鼠標點擊座標（） End If Else Goto 手動獲得鼠標座標20 End If Sub 讀取配置檔案並儲存座標到數組（） 數組 = Split(Plugin.File.ReadFileEx("D：鼠標多點連擊腳本配置.txt"), "|") Shul = UBound（數組） Redim x(Shul - 1), y(Shul - 1) For i = 0 To Shul - 1 座標 = Split（數組（i）, ",") TracePrint 座標（0） & "，" & 座標（1） x(i) = 座標（0） : y(i) = 座標（1） Next End Sub Sub 鼠標點擊座標（） Shul = UBound(x) Do For i = 0 To Shul MoveTo x(i), y(i) //TracePrint x(i)&" | "& y(i) Delay 點擊間隔 LeftDown 1 Delay 1 LeftUp 1 Delay 1 Next Delay 1 Loop End Sub Sub OnScriptExit() LeftUp 1 End Sub//這個是鼠標多點依次連擊的代碼，第一次執行鼠標選擇要點擊的每個點，自動儲存到 D：鼠標多點連擊腳本配置.txt ，以後執行你可以直接獲取儲存的座標，或者重新獲取座標//使用方法按照腳本彈窗提示.。

For j = 0 To len(TEXT)

dm.KeyPress Asc(mid(text, j, 1))

delay 50

Next

遊戲屏蔽了粘貼功能可能。你的帳號應該是數字加字母吧，這個方法字母可能輸出要加32，你改下看看。

哦，對了 我是用大漠插件的。

For j = 0 To len(TEXT)

KeyPress mid(text, j, 1),1

delay 50

Next

這樣就行了。

在當前視窗輸入文字。

SayString [文字]

SayString string

[文字] 參數可以是任意有效的字元。

說明

注意：string 參數可以用變量，如果想使用變量，請確定軟件應爲6.10版之後。

下面示例在具有輸入焦點的視窗輸出“這是一個例子”：

SayString 這是一個例子

/*********************************************/

你可以到網上搜一下“按鍵寶典”，官方出的，裏邊非常詳細的。

UserVar low1=20 隨機數下限

UserVar high1=300 隨機數上限

UserVar xs=2 保留小數點位數

UserVar t1=2010-9-1 起始日期（年月日用-號隔開）

UserVar t2=2010-11-22 結束日期

dim tt(50)

Randomize

x1=((high1-low1+1)*Rnd+low1)

x2=inStr(x1,".")

x3=Left(x1,x2+xs)

VBSCall RunApp("notepad.exe")

Delay 2000

Plugin h= Window.Find("Notepad", 0)

Plugin Window.Active(h)

Delay 200

SayString "隨機數"&x3

KeyPress 13,2

SayString "下面將輸出連續日期，自動識別每個月的天數"

KeyPress 13,1

t1=CDate(t1)

t2=CDate(t2)

t3=t1

SayString t3

KeyPress 13,1

While DateDiff("d",t3,t2)>0

t3=DateAdd("d",1,t3)

SayString t3

KeyPress 13,1

EndWhile

是不是這樣？

a = 1 : b = 10

Do

Hwnd = Plugin.Window.Find("Notepad", 0)

If Hwnd RunApp "notepad.exe"

Else

Exit Do

End If

Delay 500

Loop

Delay 100

Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)

Do

Call Plugin.Bkgnd.SendString(Hwnd, a & "-" & b & vbcr )

a = a + 10 : b = b + 10

Delay 200

Loop