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

StopThread kill order rotation thread ID
 StopThread Mouse Shape Detection Thread ID

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

SetSimMode 0

Small Transient Hotkey = Plugin.File.ReadINI ("Transient Hotkey", "Small Transient", "C:\dftq\Config.ini")
Form1.Hotkey1.VirtualKey =Small Transient Hotkey
Form1.Hotkey1.Register True 
TracePrint Small Transient Hotkeys	

Large Transient Hotkey = Plugin.File.ReadINI ("Transient Hotkey", "Large Transient", "C:\dftq\Config.ini")
Form1.Hotkey2.VirtualKey =Large Transient Hotkey
Form1.Hotkey2.Register True 
TracePrint Large Transient Hotkeys
 
Slow Transient Hotkey = Plugin.File.ReadINI ("Transient Hotkey", "Slow Transition", "C:\dftq\Config.ini")
Form1.Hotkey3.VirtualKey =Slow Transient Hotkey
Form1.Hotkey3.Register True 
TracePrint Slow Transient Hotkeys 
 
Super Hotkey = Plugin.File.ReadINI ("Hotkey for Jump Settings", "Super Jump", "C:\dftq\Config.ini")
Form1.Hotkey4.VirtualKey =Super Hotkey
Form1.Hotkey4.Register True 
TracePrint Super Hotkey
 
Big Super Hotkey = Plugin.File.ReadINI ("Hotkey for Jump Settings", "Big Super Jump", "C:\dftq\Config.ini")
Form1.Hotkey5.VirtualKey =Big Super Hotkey
Form1.Hotkey5.Register True 
TracePrint Big Super Hothop 
 
Transient Hotkey=Plugin.File.ReadINI ("Hotkey for Jump Settings", "Transient Jump", "C:\dftq\Config.ini")
Form1.Hotkey6.VirtualKey =Transient Hotkey
Form1.Hotkey6.Register True 
TracePrint Transient Hotkey 

Fifty Damage Hotkey = Plugin.File.ReadINI ("PVE Set Hotkey", "Fifty Damage", "C:\dftq\Config.ini")
Form1.Hotkey7.VirtualKey =Fifty Damage Hotkeys
Form1.Hotkey7.Register True 
TracePrint Fifty Damage Hotkeys
 
Cannon Acceleration Hotkey=Plugin.File.ReadINI ("PVE Set Hotkey", "Cannon Acceleration", "C:\dftq\Config.ini")
// Form1.Hotkey8.VirtualKey =Cannon Acceleration
Form1.Hotkey8.Register True 
TracePrint "Cannon Accelerator Hotkey" 

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

Call Unregister All Hotkeys
 Call Stops All Threads

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

Four original articles were published. 1. Visits 4624
Private letter follow

Tags: Windows

Posted on Tue, 04 Feb 2020 21:58:47 -0500 by DanArosa