Call 注册大漠
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Call 註冊大漠
Dimenv 環境變數控制碼
//環境變數,線程裏面要用到.要定義為環境變數
ID控制碼字串= ""
//****************************** 檢測按鍵,動作
***************************************
do
Call Plugin.Msg.Tips("按Insert鍵綁定,按Delete鍵解綁")
Key = WaitKey()
// 等待用戶按任何鍵
// 下麵是Insert鍵,綁定滑鼠指向的視窗的線程
If Key = 45 Then
環境變數控制碼= dm.GetMousePointWindow()
// 滑鼠指向的視窗
// 先判斷,這個控制碼是否在綁定.如果綁定過.不再重複綁定這個視窗
位置= Instr(ID控制碼字串, 環境變數控制碼)
//Instr函數,作用是:返回"環境變數控制碼"在"ID控制碼字串"中第一次出現的位置。沒出現就是位置=0
// 如果位置=0 就綁定,預防重複綁定
TracePrint 位置
TracePrint ID控制碼字串
If 位置= 0 Then
//
線程ID=BeginThread(多線程)
// 多線程
// 按一次Home鍵,就綁定一個視窗多開
控制碼= CStr(環境變數控制碼)
ID = CStr(線程ID)
// CStr函數是把整數轉換成字串類型
ID控制碼字串= 控制碼+ "|" + ID + "|" + ID控制碼字串
//
Call Plugin.Msg.Tips("已綁定,一個視窗")
//
Else
Call Plugin.Msg.Tips("視窗已經綁定過了,請不要重複綁定")
Delay 2500
End If
//
//
//########################################################
// 下麵是按Delete鍵,停止滑鼠指向的視窗的線程
ElseIf Key = 46 Then
滑鼠指向的控制碼= dm.GetMousePointWindow()
// TracePrint ID控制碼字串
位置= Instr(ID控制碼字串, 滑鼠指向的控制碼)
//Instr函數,作用是:返回"環境變數控制碼"在"ID控制碼字串"中第一次出現的位置。沒出現就是位置=0
// 如果位置=0 證明這個視窗當前沒有綁定,預防沒綁定就解綁
TracePrint 位置
TracePrint ID控制碼字串
If 位置> 0 Then
陣列= Split(ID控制碼字串, 滑鼠指向的控制碼)
ID = 陣列(1)
陣列2 = Split(ID, "|")
ID2 = 陣列2(1)
// TracePrint ID2
StopThread ID2
//
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ // 下麵是把停止的線程的ID和控制碼,從ID控制碼字串去掉
TracePrint ID控制碼字串
刪除陣列= Split(ID控制碼字串, 滑鼠指向的控制碼)
左邊= 刪除陣列(0)
ID3= ID2+"|"
刪除陣列2 = Split(ID控制碼字串, ID3)
右邊= 刪除陣列2(1)
ID控制碼字串= 左邊+ 右邊
TracePrint ID控制碼字串
//
//
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Call Plugin.Msg.Tips("已解綁,一個視窗")
Else
Call Plugin.Msg.Tips("窗口都沒綁定過,你解綁什麼嗯,想下標越界麼")
Delay 2500
End If
End If
Delay 1500
// 適當延遲,避免連按鍵
Call Plugin.Msg.Tips("")
Loop
//
//
//****************************** 多線程程式
***************************************
Sub 多線程
set dm = createobject("dm.dmsoft")
//↑創建“一個物件”
// dm_ret = dm.SetDict(0,"c:\test_game\dm_soft.txt")
//字形檔
Call 綁定()
//下麵是你要編寫的程式
Do
dm. KeyPress 81
// 輸入文字Q
//
Delay 1000
Loop
End Sub
//
//
//
//****************************** 註冊大漠
***************************************
sub 註冊大漠