GMS Tool AutoChatter - 前台自動聊天 (開源)

轉自:http://www.gamersoul.com/forums/showthread.php?171129-AutoChatter
GMS = Global MapleStory
這個台版也可以用...

Should work in every version of MS to come.


Download: http://www.mediafire.com/?6wtkqzaa8a34l1q
Virus Scan: https://www.virustotal.com/file/143f...is/1345418698/

source code (made in VB 2010)
form is Form1
delay textbox is txtDelay
Chat ON is btnON
Chat OFF is btnOFF
4 message boxes are Textbox1, Textbox2, Textbox3, Textbox4
2 checkboxes are Checkbox1 and Checkbox2

Code:
Public Class Form1    
    Shadows Activated As Integer
    Dim msg1, msg2, msg3, msg4 As String


    Sub Delay(ByVal dblSecs As Double)
        Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
        Dim dblWaitTil As Date
        Now.AddSeconds(OneSec)
        dblWaitTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs / 1000)
        Do Until Now > dblWaitTil
            Application.DoEvents()
        Loop
    End Sub


    Private Sub btnON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnON.Click
        Dim DelayMsg As Integer
        DelayMsg = txtDelay.Text
        Activated = 1
        Dim ProcessName As String = "Maplestory"
        Dim Processes() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName(ProcessName)
        Dim maple = Processes(0).Id
        AppActivate(maple)
        Do While Activated = 1
            Delay(DelayMsg)
            My.Computer.Keyboard.SendKeys(TextBox1.Text, True)
            My.Computer.Keyboard.SendKeys("{ENTER}", True)
            Delay(DelayMsg)
            My.Computer.Keyboard.SendKeys(TextBox2.Text, True)
            My.Computer.Keyboard.SendKeys("{ENTER}", True)
            If TextBox3.Visible = True Then
                Delay(DelayMsg)
                My.Computer.Keyboard.SendKeys(TextBox3.Text, True)
                My.Computer.Keyboard.SendKeys("{ENTER}", True)
            End If
            If TextBox4.Visible = True Then
                Delay(DelayMsg)
                My.Computer.Keyboard.SendKeys(TextBox4.Text, True)
                My.Computer.Keyboard.SendKeys("{ENTER}", True)
            End If
        Loop
    End Sub


    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox3.Visible = True
            CheckBox2.Visible = True
        ElseIf CheckBox1.Checked = False Then
            TextBox3.Visible = False
            TextBox4.Visible = False
            CheckBox2.Visible = False
            CheckBox2.Checked = False
        End If
    End Sub


    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            TextBox4.Visible = True
        ElseIf CheckBox2.Checked = False Then
            TextBox4.Visible = False
        End If
    End Sub


    Private Sub btnOFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOFF.Click
        Activated = 0
    End Sub
End Class

留言

本月最夯

偷用電腦,怎知?事件檢視器全記錄!(開機時間、啟動項時間...)