Sythe.org — A Virtual Goods Trading Hub

TeKnOfY · #1 02-28-2010, 02:29 PM

Hey everyone, I need help finding a syntax error in the following code. I will pay somone like $5 after they post back the code with a corrected syntax! Thanks

///////////////////CODE STARTS HERE\\\\\\\\\\\\\\\\\\\\\\\

Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports Functions
Class ClassName1
public Dim a As Integer = 1
Sub main()
Class1.minimise(Class1.getForm())
Class1.activeWindow()
System.Threading.Thread.Sleep(300)
While (a != 0)
If (loop() == -1) Then
a = 0
End If
End While
System.Threading.Thread.Sleep(300)
Class1.maximise(Class1.getForm())
End Sub
public Function loop() As Integer

return -1
End Function
End Class

Visual Basic Matt · #2 02-28-2010, 06:48 PM

I have no idea what your trying to do here but this code is extremely wrong. The parts I couldn't understand I left out but here's the correct syntax.

Code:

Imports System
Imports System.Windows.Forms
Imports System.Drawing
Public Class Form1
    Public a As Integer = 1
    Sub main()
        Me.WindowState = FormWindowState.Minimized
        System.Threading.Thread.Sleep(300)
        While Not (a = 0)
            If (loopc() = -1) Then
                a = 0
            End If
        End While
        System.Threading.Thread.Sleep(300)
        Me.WindowState = FormWindowState.Maximized
    End Sub
    Function loopc() As Integer
        loopc = -1
    End Function
    'You need to call main from somewhere
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        main()
    End Sub
End Class

jcd1827 · #3 11-17-2010, 03:31 PM

That codes extremely messy, and incorrect. Please provide what you are trying to do with it.

blahbleh · #4 11-17-2010, 04:34 PM

Quote:

Originally Posted by TeKnOfY

Hey everyone, I need help finding a syntax error in the following code. I will pay somone like $5 after they post back the code with a corrected syntax! Thanks

///////////////////CODE STARTS HERE\\\\\\\\\\\\\\\\\\\\\\\

Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports Functions
Class ClassName1
public Dim a As Integer = 1
Sub main()
Class1.minimise(Class1.getForm())
Class1.activeWindow()
System.Threading.Thread.Sleep(300)
While (a != 0)
If (loop() == -1) Then
a = 0
End If
End While
System.Threading.Thread.Sleep(300)
Class1.maximise(Class1.getForm())
End Sub
public Function loop() As Integer

return -1
End Function
End Class

I found 1 obvious error: Class ClassName1
Should be Class Class1.

Sythe.org — A Virtual Goods Trading Hub

Take me to

Runescape Markets

Other Game Markets

Support Center

Register an Account