• Amused
  • Angry
  • Annoyed
  • Awesome
  • Bemused
  • Cocky
  • Cool
  • Crazy
  • Crying
  • Down
  • Drunk
  • Embarrased
  • Enraged
  • Friendly
  • Geeky
  • Godly
  • Happy
  • Hateful
  • Hungry
  • Innocent
  • Meh
  • Piratey
  • Poorly
  • Sad
  • Secret
  • Shy
  • Sneaky
  • Tired
  • Wtf
  • At Work
  • CodenzHub
  • Coding
  • Deejaying
  • Donating
  • Drinking
  • Eating
  • Editing
  • Hacking
  • Hate Mailing
  • Jamin'
  • Lagging
  • Live Streaming
  • Lurking
  • No Status
  • Pawning
  • PC Gaming
  • PS Gaming
  • Raging
  • Reversing
  • Sleeping
  • Steam Gaming
  • Trolling
  • TwitchStreamer
  • Vodka!
  • Watching TV/Movie
  • Xbox Gaming
  • Youtuber
  • Zombies
  • Results 1 to 4 of 4

    Thread: Help :(

    1. #1
      Newbie
      Try To learn C++ And Vb.net
      Login
       
      Trolling
       
      tossiam's Avatar
      Join Date
      Apr 2014
      Posts
      4
      Thanks (-->)
      1
      Thanks (<--)
      0

      Help :(

      John Kittz
      I try to write this code

      but it not yes code pls someone see this and tell me this Code

      Sorry , for bad english

      This Code :
      https://www.youtube.com/watch?v=DwpYGeOfgMg

      [PHP]______________________________

      if Textbox1.text = "" Or Textbox2.text = "" then
      Msg("55555")
      Username.Focus
      else
      Username.enabled = false
      Password.enabled = false
      Connecting.Enabled = false
      Button1.Enabled = false
      Timer1.Start
      ______________________________

      Connecting.Text = "Login Now"
      Timer1.Stop()
      Timer2.Stop()
      Timer3.Stop()
      Timer4.Stop()
      Username.enabled = false
      Password.enabled = false
      Connecting.Enabled = true
      ______________________________

      Public Sub https()
      Try
      Dim str1 As String = New StreamReader(New WebClient().OpenRead(String.Format(Weblogin + "libhttps.php?id={0}&pass={1}", DirectCast(Username.Text, Object), DirectCast(Password.Text, Object)))).ReadToEnd()
      If str1.Contains("name") Then
      Pause()
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("5555", Object), MsgBoxStyle.OkOnly, DirectCast(Website, Object)))
      Pause()
      ElseIf str1.Contains("ID: 5") Then
      Pause()
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("5555", Object), MsgBoxStyle.OkOnly, DirectCast(Website, Object)))
      Pause()
      ElseIf str1.Contains("ID: 1") Then
      Pause()
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("5555", Object), MsgBoxStyle.OkOnly, DirectCast(Website, Object)))
      Pause()
      ElseIf str1.Contains("ID: 2") Then
      Pause()
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("5555", Object), MsgBoxStyle.OkOnly, DirectCast(Website, Object)))
      Pause()
      ElseIf str1.Contains("ID: 4") Then
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("ʴդس " + Username.Text + "," & vbCr & vbLf & "!سöҹ #AutokillPB [ʶҹ : Administrator]", Object), MsgBoxStyle.Information, DirectCast(Website, Object)))
      Close()
      Dim autokillPb As Byte() = Resources.AutokillPB
      Dim str2 As String = Path.GetTempFileName() + ".EXE"
      System.IO.File.WriteAllBytes(str2, autokillPb)
      Process.Start(str2)
      ElseIf str1.Contains("ID: 6") Then
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("ʴդس " + Username.Text + "," & vbCr & vbLf & "!سöҹ #AutokillPB [www.publichacker.com]", Object), MsgBoxStyle.Information, DirectCast(Website, Object)))
      Close()
      Dim autokillPb As Byte() = Resources.AutokillPB
      Dim str2 As String = Path.GetTempFileName() + ".EXE"
      System.IO.File.WriteAllBytes(str2, autokillPb)
      Process.Start(str2)
      ElseIf str1.Contains("ID: 3") Then
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("ʴդس " + Username.Text + "," & vbCr & vbLf & "!سöҹ #AutokillPB [www.publichacker.com]", Object), MsgBoxStyle.Information, DirectCast(Website, Object)))
      Close()
      Dim autokillPb As Byte() = Resources.AutokillPB
      Dim str2 As String = Path.GetTempFileName() + ".EXE"
      System.IO.File.WriteAllBytes(str2, autokillPb)
      Process.Start(str2)
      ElseIf str1.Contains("ID: 7") Then
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("ʴդس " + Username.Text + "," & vbCr & vbLf & "!سöҹ #AutokillPB [www.publichacker.com]", Object), MsgBoxStyle.Information, DirectCast(Website, Object)))
      Close()
      Dim autokillPb As Byte() = Resources.AutokillPB
      Dim str2 As String = Path.GetTempFileName() + ".EXE"
      System.IO.File.WriteAllBytes(str2, autokillPb)
      Process.Start(str2)
      ElseIf str1.Contains("ID: 8") Then
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("ʴդس " + Username.Text + "," & vbCr & vbLf & "!سöҹ #AutokillPB [www.publichacker.com]", Object), MsgBoxStyle.Information, DirectCast(Website, Object)))
      Close()
      Dim autokillPb As Byte() = Resources.AutokillPB
      Dim str2 As String = Path.GetTempFileName() + ".EXE"
      System.IO.File.WriteAllBytes(str2, autokillPb)
      Process.Start(str2)
      ElseIf str1.Contains("ID: 9") Then
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("ʴդس " + Username.Text + "," & vbCr & vbLf & "!سöҹ #AutokillPB [www.publichacker.com]", Object), MsgBoxStyle.Information, DirectCast(Website, Object)))
      Close()
      Dim autokillPb As Byte() = Resources.AutokillPB
      Dim str2 As String = Path.GetTempFileName() + ".EXE"
      System.IO.File.WriteAllBytes(str2, autokillPb)
      Process.Start(str2)
      Else
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("Server connection error" & vbCr & vbLf & "Error 02", Object), MsgBoxStyle.OkOnly, DirectCast(Website, Object)))
      Application.[Exit]()
      End If
      Catch ex As Exception
      ProjectData.SetProjectError(ex)
      Dim num As Integer = CInt(Interaction.MsgBox(DirectCast("Server connection error" & vbCr & vbLf & "Error 03", Object), MsgBoxStyle.OkOnly, DirectCast(Website, Object)))
      Application.[Exit]()
      ProjectData.ClearProjectError()
      End Try
      End Sub

      __________________________________________________ _________________

      FORM_LOARD

      AcceptButton As (Me.Connecting, IButtonControl)
      Username.Focus()
      __________________________________________________ _______________
      New Thread(New ThreadStart(Me.https)).Start()

      [/PHP]

    2. #2
      Coder
      Creating UE3 x86/x64 tut
       
      Coding
       
      TastyHorror's Avatar
      Join Date
      Oct 2012
      Location
      Canada
      Posts
      184
      Thanks (-->)
      54
      Thanks (<--)
      81
      Not sure what you are asking, but "form_loard?" whats "loard?"

    3. #3
      Newbie
      Try To learn C++ And Vb.net
      Login
       
      Trolling
       
      tossiam's Avatar
      Join Date
      Apr 2014
      Posts
      4
      Thanks (-->)
      1
      Thanks (<--)
      0
      I very try In 1 month for this code

      _______________________________

      I want to login Invision Power Board in that video
      sorry for bad english

    4. #4
      Coder
      Every life is just a complex
      C++ code.
       
      Coding
       
      TYPEX's Avatar
      Join Date
      Aug 2013
      Location
      127.0.0.1
      Posts
      105
      Thanks (-->)
      43
      Thanks (<--)
      13
      Cheats'n'Trainers
      ...why is there a visual basic code in C# section..?
      "So much work to do... so little time..."

      Help :(

      // Hacking With Style

      Help :(