操屁眼的视频在线免费看,日本在线综合一区二区,久久在线观看免费视频,欧美日韩精品久久综

腳本之所以智能，是因為腳本能夠對邏輯進行判斷，該循環的時候循環，這次就給大家詳細介紹下腳本的控制命令，讓腳本智能起來~~

控制命令我們分成兩個部分：判斷選擇命令、循環命令

判斷命令

判斷命令主要是對某個條件的不同結果，分別執行不同的操作。腳本是否足夠智能，就體現在判斷命令是否用的好

范例一 ：

Dim a,b
a = 1
b = 2
If a > b Then 
 TracePrint "a > b"
Else 
 TracePrint "a < b"
End If

這個就是最簡單的一種判斷范例，當表達式成立的時候就執行下面的語句，否則就執行else后面的語句。

范例二 ：

Dim a
a = true
If a Then 
 TracePrint "a = true"
Else 
 TracePrint "a = false"
End If

上面這個例子中，If a Then 等于 If a = true Then

范例三 ：

Dim a
a = 2
If a = 1 Then 
 TracePrint "a = 1"
ElseIf a = 2 Then
 TracePrint "a = 2"
Else 
 TracePrint "a"
End If

上面范例中 elseif 表示不同的條件判斷：如果……則……否則……

按鍵會從上到下逐一判斷，當第一個表達式不成立，就判斷第二個表達式，直到有表達式成立或者全部表達式都不成立的時候就結束判斷

Dim a
a = 2
Select Case a
 Case 1
 TracePrint "a = 1"
 Case 2
 TracePrint "a = 2"
 Case 3
 TracePrint "a = 1"
 Case Else
 TracePrint a
End Select

上面范例中，就是根據a的值的不同來執行對應的語句。當a=1時執行traceprint "a=1"...以此類推。當一個變量可能有多個不同值，并且不同的值對已對應不同的處理時，就很適合使用這種條件語句。

循環命令

無限循環 ：

Do
 TracePrint "無限循環開始"
 Delay 1000
Loop

這種循環啟動后就會一直循環下去

條件成立時循環：

Dim i=0
Do While i=0
 TracePrint "循環開始"
 Delay 1000
Loop

這種循環體是只有當while后面的表達式成立后才會執行里面的循環，每次循環都會判斷表達式一次

條件不成立時循環 ：

Dim i=0
Do Until i=0
 TracePrint "循環開始"
Loop
TracePrint "循環結束"

這種循環體是當until后面表達式不成立才會執行循環。

Dim i=1
Do
 If i > 5 Then 
 TracePrint "退出循環"
 Exit Do 
 End If
Loop

上面范例中的exit do 表示退出當前的do循環。exit do 這個命令只能用來退出當前所在的循環

范例：

Dim i=0
While i=0
 TracePrint "循環開始"
Wend

這個命令和do while 的用處一樣，都是當條件成立后執行語句

循環固定次數：

For 10 
 TracePrint "循環10次"
 Delay 200
Next

計次循環：

For i = 0 To 10
 TracePrint "循環第：" & i & "次"
 Delay 200
Next
For i = 0 To 10 Step 2
 TracePrint "當前i的值是：" & i
 Delay 200
Next
For i = 10 To 0 Step -2
 TracePrint "當前i的值是：" & i
 Delay 200
Next

范例中的循環是計次循環的，上面代碼中是設定一個變量 i 的初始值是 0 每次循環 i 的值都加1 ，直到 i 的值為10 為止。step 表示“步長”，step 2 就是表示每次循環 i 的值加2。

如果沒有定義 i 的話，那這個循環里的變量 i 就是循環里的局部變量。如果定義了變量 i ，則這個 i 就是全局變量

Dim arr=array(1,3,5,3,6)
For Each v In arr
 TracePrint v
Next

這個命令是用來遍歷出數組中的每個元素內容。其中變量 v 是屬于這個循環內的局部變量。

金豬腳本（原飛豬腳本）以按鍵精靈教學為主,涉及UiBot，Python,Lua等腳本編程語言,教學包括全自動辦公腳本,游戲輔助腳本,引流腳本,網頁腳本,安卓腳本,IOS腳本,注冊腳本,點贊腳本,閱讀腳本以及網賺腳本等各個領域。想學習按鍵精靈的朋友可以添加金豬腳本粉絲交流群:554127455 學習路上不再孤單,金豬腳本伴你一同成長.

金豬腳本（原飛豬腳本）以按鍵精靈教學為主,涉及UiBot，Python,Lua等腳本編程語言,教學包括全自動辦公腳本,游戲輔助腳本,引流腳本,網頁腳本,安卓腳本,IOS腳本,注冊腳本,點贊腳本,閱讀腳本以及網賺腳本等各個領域。想制作腳本和學習按鍵精靈的朋友可以添加按鍵精靈學習交流群:554127455 學習路上不再孤單,金豬腳本伴你一同成長.

啥情況下系統字體會影響到游戲

游戲字體采用的是系統的字體，也就是說系統字體如果是宋體，游戲字體也是宋體。如果換一臺電腦，系統字體是微軟雅黑，那么游戲字體也會變成微軟雅黑。（目前大部分游戲的字體都是采用系統字體）

如何兼容不同系統字體

小編之前看到的很多腳本，都是要求用戶改變系統字體來適應腳本。 這樣的方法會讓用戶覺得很麻煩，而且，如果有些系統字體無法修改成功就無法使用腳本。所以今天小編就不介紹這種方法，咱們來一起看看更方便的方法。

步驟

1 在QUI界面上畫一個下拉列表框，命名為xitong

2 獲取下拉列表框的值，如果選擇的是win7系統則使用大漠的 GetDictInfo 函數，指定生成微軟雅黑9號字體。

如果選擇的是xp系統則使用大漠的 GetDictInfo 函數，指定生成宋體9號。

注意：為什么是9號字而不是10號字11號字呢？是這樣的： 因為游戲里的字體是固定大小的，都是采用9號字體，不管系統宋體10號還是11號，游戲里都是宋體9號。GetDictInfo函數

函數功能簡介:根據指定的文字，以及指定的系統字庫信息，獲取字庫描述信息.

函數原型: string GetDictInfo(str,font_name,font_size,flag)

參數定義:

str 字符串: 需要獲取的字符串

font_name 字符串: 系統字體名,比如"宋體"

font_size 整形數: 系統字體尺寸，這個尺寸一定要以大漠綜合工具獲取的為準.如何獲取尺寸看視頻教程.

flag 整形數: 字體類別 取值可以是以下值的組合,比如1+2+4+8,2+4. 0表示正常字體.

1 : 粗體

2 : 斜體

4 : 下劃線

8 : 刪除線

返回值: 字符串 返回字庫信息,每個字符的字庫信息用"|"來分割

示例:

1. // 下面的代碼是獲取"回收站"這3個字符的字庫信息，然后加入到字庫1中.
2. font_desc = dm.GetDictInfo("回收站","宋體",9,0)
3. font_desc = split(font_desc,"|")
4. count = ubound(font_desc)
5. for i = 0 to count
6. TracePrint font_desc(i)
7. dm.AddDict 1,font_desc(i)
8. next

復制代碼

1. 代碼// 創建字庫(字表, 字體, 字號, 字庫ID, 文件路徑[傳空為不保存到字庫文件])
2. Sub CreateFont(Words, Font, Size, Index, Path)
3. Dim TempStr
4. TempStr = dm.GetDictInfo(Words, Font, Size, 0)
5. TempArray = Split(TempStr,"|")
6. For i = 0 to UBound(TempArray)
7. dm.AddDict Index,TempArray(i)
8. Next
9. Erase TempArray // 釋放不用的內存
10. If Len(Path) > 0 Then
11. Call dm.SaveDict(0, Path)
12. End If
13. End Sub
14. // 初始化大漠
15. Call register()
16. Set dm = CreateObject("dm.dmsoft")
17. Call dm.SetPath("c:\test")
18. // 讀取選項
19. Select Case Form1.xitong.ListIndex
20. Case 0
21. FontName = "微軟雅黑"
22. Case 1
23. FontName = "宋體"
24. End Select
25. Call CreateFont("我的電腦|網上鄰居" ,FontName, 9, 0, "字庫.txt")//調用創建字庫函數
26. //找字
27. dm_ret = dm.FindStr(0,0,2000,2000,"我的電腦","ffffff",1.0,intX,intY)
28. If intX >= 0 and intY >= 0 Then
29. MessageBox "我的電腦"
30. Else
31. MessageBox "沒找到"
32. End If
33. dm_ret = dm.FindStr(0,0,2000,2000,"網上鄰居","ffffff",1.0,intX,intY)
34. If intX >= 0 and intY >= 0 Then
35. MessageBox "網上鄰居"
36. Else
37. MessageBox "沒找到"
38. End If
39. Sub register() //注冊大漠
40. Set ws = createobject("Wscript.Shell")
41. ws.run "regsvr32 atl.dll /s"
42. Set ws = nothing
43. PutAttachment "c:\test", "dm.dll"
44. PutAttachment ".\Plugin" ,"RegDll.dll"
45. call Plugin.RegDll.Reg ( "c:\test\dm.dll")
46. Set dm = createobject("dm.dmsoft")
47. ver = dm.ver()
48. If len(ver) = 0 Then
49. MessageBox "插件注冊失敗,檢查系統是否禁用了vbs腳本權限"
50. EndScript
51. End If
52. End Sub

復制代碼

注意：1、小編是xp系統，系統字體為宋體，9號字，所以小編拿電腦桌面上的 我的電腦和網上鄰居作為例子。

2、 啟動之后第一次運行選擇了xp系統，第二次要選擇win7系統的時候，需要按下保存設置，否則，再次啟動qui會讀取之前的下拉列表選擇的信息，依然會切換到xp系統選項。演示