Paying well for 30 seconds of Visual Basic help - SEE INSIDE!

03-21-2011, 08:23 PM #1

ARIISSEK

:nyan: Kaffy :nyan:

3,620

Posts

3,226

Reputation

0

Credits

Premium

Jan 2009

NextGenUpdate

(adsbygoogle = window.adsbygoogle || []).push({}); <input type="submit" value="Create Account »" class="gaia na button" style="font-weight: bold">

I want to click that button. ^ That's the HTML code. It's located at X=244 Y=471 on the page. I've spent about an hour trying to get this to work, and it won't. Paying 250k - 500k, and this is for a bot that I'll likely release in premium, too Smile

.

Also, Anyone who helps gets +30 Smile

(adsbygoogle = window.adsbygoogle || []).push({});

03-21-2011, 09:23 PM #2

kiwimoosical

Bounty hunter

190

Posts

459

Reputation

0

Credits

Member

Nov 2010

NextGenUpdate

Originally posted by Chrysalis

<input type="submit" value="Create Account »" class="gaia na button" style="font-weight: bold">

I want to click that button. ^ That's the HTML code. It's located at X=244 Y=471 on the page. I've spent about an hour trying to get this to work, and it won't. Paying 250k - 500k, and this is for a bot that I'll likely release in premium, too Smile

.

Also, Anyone who helps gets +30 Smile

What are you trying to make? A submit button?

    <button type="submit" value="Create Account »" class="gaia na button" style="font-weight: bold" />

Is for a button, I would assume it's going within a form, so if you PM me more details I'll help Smile

03-22-2011, 01:31 AM #3

TheOsel

Banned

325

Posts

-101

Reputation

0

Credits

Banned

Sep 2010

NextGenUpdate

If I understand this is for a botting tool so you wish for the VB application to auto-click on them co-ords'?

03-22-2011, 02:35 AM #4

ARIISSEK

:nyan: Kaffy :nyan:

3,620

Posts

3,226

Reputation

0

Credits

Premium

Jan 2009

NextGenUpdate

Originally posted by aNut

If I understand this is for a botting tool so you wish for the VB application to auto-click on them co-ords'?

Basically, yes. If it could work when you click a button that'd be great, too Smile

.

Originally posted by kiwimoosical

What are you trying to make? A submit button?

    <button type="submit" value="Create Account »" class="gaia na button" style="font-weight: bold" />

Is for a button, I would assume it's going within a form, so if you PM me more details I'll help Smile

I know HTML. I posted that because it's the HTML. And it would be button type. Input type is correct.

03-22-2011, 04:26 PM #5

TheOsel

Banned

325

Posts

-101

Reputation

0

Credits

Banned

Sep 2010

NextGenUpdate

Originally posted by Chrysalis

Basically, yes. If it could work when you click a button that'd be great, too Smile

.

I know HTML. I posted that because it's the HTML. And it would be button type. Input type is correct.

Simple! Sorry this is a late reply but I've been at work all day and only just checked this. Forgive me sir'

Originally posted by another user

Public Class Form1
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwextrainfo As Long)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Button1.Visible = False
Button2.Visible = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Cursor.Position = New Point(244, 471)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Visible = False
Button1.Visible = True
Timer1.Enabled = False
End Sub
End Class

That is the whole code. If you need help just reply. :rolleyes:

03-22-2011, 10:35 PM #6

ARIISSEK

:nyan: Kaffy :nyan:

3,620

Posts

3,226

Reputation

0

Credits

Premium

Jan 2009

NextGenUpdate

Originally posted by aNut

Simple! Sorry this is a late reply but I've been at work all day and only just checked this. Forgive me sir'

That is the whole code. If you need help just reply. :rolleyes:

No, that doesn't work / help...

03-23-2011, 12:00 AM #7

TheOsel

Banned

325

Posts

-101

Reputation

0

Credits

Banned

Sep 2010

NextGenUpdate

Originally posted by Chrysalis

No, that doesn't work / help...

Send me your source code and I'll add it in. Because that is how to do it.

03-23-2011, 09:56 AM #8

ARIISSEK

:nyan: Kaffy :nyan:

3,620

Posts

3,226

Reputation

0

Credits

Premium

Jan 2009

NextGenUpdate

Originally posted by aNut

Send me your source code and I'll add it in. Because that is how to do it.

    Public Class Form1



    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        WebBrowser1.Document.GetElementById("Email").SetAttribute("value", ListBox1.Text)

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox1.Text)

        WebBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", TextBox1.Text)





    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox1.Text)

    End Sub





    Private Sub ListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        WebBrowser1.Document.GetElementById("Email").SetAttribute("value", ListBox1.Text)

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", "lazoiskaffy")

        WebBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", "lazoiskaffy")

    End Sub





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("https://www.google.com/accounts/NewAccount")

    End Sub

End Class

With yours added in:

    Public Class Form1    Private Const MOUSEEVENTF_LEFTDOWN = &H2

    Private Const MOUSEEVENTF_LEFTUP = &H4

    Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwextrainfo As Long)





    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        WebBrowser1.Document.GetElementById("Email").SetAttribute("value", ListBox1.Text)

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox1.Text)

        WebBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", TextBox1.Text)





    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox1.Text)

    End Sub





    Private Sub ListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        WebBrowser1.Document.GetElementById("Email").SetAttribute("value", ListBox1.Text)

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", "lazoiskaffy")

        WebBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", "lazoiskaffy")

    End Sub





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("https://www.google.com/accounts/NewAccount")

    End Sub

    Private Sub Button1_Click1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Enabled = True

        Button1.Visible = False

        Button2.Visible = True

    End Sub





    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Cursor.Position = New Point(244, 471)

        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

    End Sub





    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Button2.Visible = False

        Button1.Visible = True

        Timer1.Enabled = False

    End Sub

End Class

03-23-2011, 04:34 PM #9

TheOsel

Banned

325

Posts

-101

Reputation

0

Credits

Banned

Sep 2010

NextGenUpdate

Originally posted by Chrysalis

    Public Class Form1



    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        WebBrowser1.Document.GetElementById("Email").SetAttribute("value", ListBox1.Text)

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox1.Text)

        WebBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", TextBox1.Text)





    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox1.Text)

    End Sub





    Private Sub ListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        WebBrowser1.Document.GetElementById("Email").SetAttribute("value", ListBox1.Text)

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", "lazoiskaffy")

        WebBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", "lazoiskaffy")

    End Sub





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("https://www.google.com/accounts/NewAccount")

    End Sub

End Class

With yours added in:

    Public Class Form1    Private Const MOUSEEVENTF_LEFTDOWN = &H2

    Private Const MOUSEEVENTF_LEFTUP = &H4

    Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwextrainfo As Long)





    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        WebBrowser1.Document.GetElementById("Email").SetAttribute("value", ListBox1.Text)

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox1.Text)

        WebBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", TextBox1.Text)





    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", TextBox1.Text)

    End Sub





    Private Sub ListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        WebBrowser1.Document.GetElementById("Email").SetAttribute("value", ListBox1.Text)

        WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", "lazoiskaffy")

        WebBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", "lazoiskaffy")

    End Sub





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        WebBrowser1.Navigate("https://www.google.com/accounts/NewAccount")

    End Sub

    Private Sub Button1_Click1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Enabled = True

        Button1.Visible = False

        Button2.Visible = True

    End Sub





    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Cursor.Position = New Point(244, 471)

        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

    End Sub





    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Button2.Visible = False

        Button1.Visible = True

        Timer1.Enabled = False

    End Sub

End Class

I could have this working for you in absolutely no time if you were to send me the source code in a ZIP archive so I could edit your project and re-upload it to you. That code is useless to me.

I do have an idea on how to fix the code but I will need to download the project first.

03-23-2011, 06:39 PM #10

ARIISSEK

:nyan: Kaffy :nyan:

3,620

Posts

3,226

Reputation

0

Credits

Premium

Jan 2009

NextGenUpdate

Originally posted by aNut

I could have this working for you in absolutely no time if you were to send me the source code in a ZIP archive so I could edit your project and re-upload it to you. That code is useless to me.

I do have an idea on how to fix the code but I will need to download the project first.

I don't know how to get the source code : embarrassed: