Blade riding version - Test Text for web crawlers, please pass a review, Big Brother's wife Happy New Year!

Add-in latest version:
[+1.0+]
Software Use Rights:
[+1+]
Version key:
[+1234+]
Registration switch:
[+1+]
Universal machine code:
[+jiqima+]

fatwa
[Mu Hanmi-Commander of Shenzhen-]
[North Pluto Basalt-]
[Guan Jianghao-seeking maltreatment-]
[Z Thinks - Escape the Edge of Self-Claiming Justice-]
[Jack MAN-]
[When awakening, fen-Shenzhen first spray-]
[Bright moon-]
[The Legend of the Cow-]
[Zhuge Wenlan-]
[A sword makes a name for the marigold wound-]
[Meng Bao Yo-]
[You Jianbo-]
[Best must not ride a sister,-]
[Bright moon-]
[male c-]
[Item Futian-]
[Crystal Paradise-]

Dimenv version switch, on-line switch, account switch, machine-bound switch, PVP switch, PVE switch

DimEnv Local Machine Code

Dimenv dftq

Window handle pointed by Dimenv mouse

Total DimEnv Users

Window handle pointed by mouse = Plugin.Window.MousePoint
Window handle pointed by TracePrint mouse
//dftq = Plugin.Window.Find("GE_WINDOW", "Iron Knife Riding")
//TracePrint dftq

dftqEx = Plugin.Window.SearchEx("GE_WINDOW", "Blade Iron Riding", 1)
Mydftq = Split(dftqEx, "|")
If UBound(Mydftq)>=0 Then
i=0
For UBound(Mydftq)
//The following sentence converts a string to a numeric value
// Msgbox Window handle'& i+1 &'is: & Clng (MyArray(i))
If Clng(Mydftq(i)) = Window handle pointed to by mouse Then
dftq = window handle pointed by mouse
TracePrint "Point to mouse handle to determine success"
TracePrint dftq
Exit For
End If

TracePrint "No. "& i+1 & " Window handles are:"& Clng(Mydftq(i)) i = i + 1 Next

End If

DimEnv gun status

DimEnv kill order rotation thread ID

DimEnv Windows Mouse Shape, Blade Iron Riding Mouse Shape, Mouse Shape Detection Thread ID

Event Form1.Load ///////////////////////////////////////////////////////Autostart
Cannon status = - 1
Version switch=1
On-line switch = 1
Blade iron riding mouse shape = 655355029
Account Switch=0
Machine-bound switch=0
PVP switch=0
PVE Switch= 0
Form1.CheckBox 1.Value = Plugin.File.ReadINI ("Read Account Information", "Account Switch", "C:\dftq\Config.ini")
Form1.CheckBox2.Value = Plugin.File.ReadINI("Read Account Information", "Password Switch", "C:\dftq\Config.ini")

If Form1.CheckBox1.Value = 1 Then Form1.InputBox1.Text= Plugin.File.ReadINI("Read account information", "account information", "C:\dftq\Config.ini") End If If Form1.CheckBox2.Value = 1 Then Form1.InputBox2.Text= Plugin.File.ReadINI("Read account information", "Password information", "C:\dftq\Config.ini") End If Form1.Enter Stop Script.Register True Call Hot keys for reading opcodes

End Event

Call Radio Box Decision
Mouse Shape Detection Thread ID=BeginThread
//Detect process killing

Sub mouse Shape Detection

Do TracePrint "Detect Mouse" Delay 100 If GetCursorShape(1) = Windows Mouse shape or GetCursorShape(1) = Blade iron riding mouse shape Then Call Log off all hotkeys Call Stop all threads End If Loop

End Sub

Sub Enter Stop Script

End Sub

Sub Stop All Threads

End Sub

Sub Log off all hotkeys

Form1.Hotkey1.Register False Form1.Hotkey2.Register False Form1.Hotkey3.Register False Form1.Hotkey4.Register False Form1.Hotkey5.Register False Form1.Hotkey6.Register False Form1.Hotkey7.Register False Form1.Hotkey8.Register False

End Sub

Hotkeys for Sub read opcodes

End Sub

Sub Radio Box Decision

TracePrint Account Switch TracePrint Machine-bound switch TracePrint PVP switch TracePrint PVE switch If Version switch = 1 and On-line switch = 1 and Account Switch = 1 and Machine-bound switch = 1 and PVP switch=1 Then Form1.OptionBox2.Enabled=1 Form1.OptionBox2.value = 1 // Form1.OptionBox1.value = 0 Form1.Hotkey1.Register True Form1.OptionBox4.Enabled=1 Form1.OptionBox4.value = 1 // Form1.OptionBox3.value = 0 Form1.Hotkey2.Register True Form1.OptionBox6.Enabled=1 Form1.OptionBox6.value = 1 // Form1.OptionBox5.value = 0 Form1.Hotkey3.Register True Form1.OptionBox8.Enabled=1 Form1.OptionBox8.value = 1 // Form1.OptionBox7.value = 0 Form1.Hotkey4.Register True Form1.OptionBox10.Enabled=1 Form1.OptionBox10.value = 1 // Form1.OptionBox9.value = 0 Form1.Hotkey5.Register True Form1.OptionBox12.Enabled=1 Form1.OptionBox12.value = 1 // Form1.OptionBox11.value = 0 Form1.Hotkey6.Register True End If If Version switch = 1 and On-line switch = 1 and Account Switch = 1 and Machine-bound switch = 1 and PVE switch = 1 Then Form1.OptionBox15.Enabled=1 Form1.OptionBox15.value = 1 // Form1.OptionBox16.value = 0 Form1.Hotkey7.Enabled=1 Form1.Hotkey7.Register True End If

End Sub

//Call Radio Box Decision
Event Form1.Enter Stop Script.Hotkey

End Event

Event Form1.Hotkey1.Hotkey

TracePrint "Small transient hotkey pressed" If Form1.OptionBox2.value = 1 Then If Form1.ComboBox1.ListIndex =0 Then Form1.Hotkey1.Register False Call Small Transient Opcode TracePrint "Small Transient Start" Delay 150 Form1.Hotkey1.Register True ElseIf Form1.ComboBox1.ListIndex = 1 Then Form1.Hotkey1.Register False Call Small Transient Opcode 2 Delay 100 Form1.Hotkey1.Register True End If End If

End Event

Event Form1.Hotkey1.Change
Small Transient Hotkey=Form1.Hotkey1.VirtualKey

Call Plugin.File.WriteINI("Transient Hot Keys", "Small Transient", Small Transient Hot Keys,"C:\dftq\Config.ini" ) TracePrint Small Transient Hot Keys Form1.Hotkey1.Register True

End Event

Event Form1.Hotkey2.Hotkey

If Form1.OptionBox4.value = 1 Then Form1.Hotkey2.Register False Call Large Transient Opcode Delay 300 Form1.Hotkey2.Register True End If

End Event

Event Form1.Hotkey2.Change
Large Transient Hotkey=Form1.Hotkey2.VirtualKey

Call Plugin.File.WriteINI("Transient Hot Keys", "Large Transient", Large Transient Hot Keys,"C:\dftq\Config.ini" ) TracePrint Large Transient Hot Keys Form1.Hotkey2.Register True

End Event

Event Form1.Hotkey3.Hotkey

If Form1.OptionBox6.value = 1 Then Form1.Hotkey3.Register False Call Slow Transient Opcode Delay 300 Form1.Hotkey3.Register True End If

End Event

Event Form1.Hotkey3.Change
Slow Transient Hotkey=Form1.Hotkey3.VirtualKey

Call Plugin.File.WriteINI("Transient Hot Keys", "Slow transient", Slow Transient Hot Keys,"C:\dftq\Config.ini" ) TracePrint Slow Transient Hot Keys Form1.Hotkey3.Register True

End Event

Event Form1.Hotkey4.Hotkey

If Form1.OptionBox8.value = 1 Then Form1.Hotkey4.Register False Call Super skip opcode Delay 300 Form1.Hotkey4.Register True End If

End Event

Event Form1.Hotkey4.Change
Super Hotkey=Form1.Hotkey4.VirtualKey

Call Plugin.File.WriteINI("Jump Set Hotkeys", "Super Jump", Super Hotkey,"C:\dftq\Config.ini" ) TracePrint Super Hotkey Form1.Hotkey4.Register True

End Event

Event Form1.Hotkey5.Hotkey

If Form1.OptionBox10.value = 1 Then Form1.Hotkey5.Register False Call Big Super Jump Opcode Delay 300 Form1.Hotkey5.Register True End If

End Event

Event Form1.Hotkey5.Change
Large Super Hotkey=Form1.Hotkey5.VirtualKey

Call Plugin.File.WriteINI("Jump Set Hotkeys", "Big Super Jump", Big Super Hotkey,"C:\dftq\Config.ini" ) TracePrint Big Super Hotkey Form1.Hotkey5.Register True

End Event

Event Form1.Hotkey6.Hotkey

If Form1.OptionBox12.value = 1 Then Form1.Hotkey6.Register False Call Transient skip opcode Delay 300 Form1.Hotkey6.Register True End If

End Event

Event Form1.Hotkey6.Change
Transient Hotkey=Form1.Hotkey6.VirtualKey

Call Plugin.File.WriteINI("Jump Set Hotkeys", "Dodging Jump", Transient Hotkeys,"C:\dftq\Config.ini" ) TracePrint Transient Hotkeys Form1.Hotkey6.Register True

End Event

Event Form1.Hotkey7.Hotkey
Form1.Hotkey7.Register False
If Form1.OptionBox15.value = 1 Then
Call Fifty Damage Opcode
Delay 1630
Form1.Hotkey7.Register True
End If

End Event

Event Form1.Hotkey7.Change
Fifty Damage Hotkeys = Form1.Hotkey7.VirtualKey

Call Plugin.File.WriteINI("PVE Set Hotkeys", "Fifty times more damage", Fifty Damage Hot Keys,"C:\dftq\Config.ini" ) TracePrint Transient Hotkeys Form1.Hotkey7.Register True

End Event

• Give the thumbs-up
• Collection
• share
• • Article Report

4 February 2020, 21:58 | Views: 7328