![]() |
|
[.NET] Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Close - Printable Version +- Hack Forums (https://hackforums.net) +-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444) +--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151) +---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118) +---- Thread: [.NET] Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Close (/showthread.php?tid=65075) |
Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Close - Shad~ - Apr 8, 2009 Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Closed. Close - Code King - Apr 8, 2009 im not a vb coder but you could check out planet source code theres 1000s and 1000s program source code: www.planetsourcecode.com enjoy - Shad~ - Apr 8, 2009 (Apr 8, 2009 12:50 PM)Code King Wrote: im not a vb coder but you could check out planet source code theres 1000s and 1000s program source code: thanks dude! - the gost - Apr 8, 2009 try www.vbfrance.com if u speak frensh - KING-T - Apr 8, 2009 try opensc.ws they have source codes for alot of RAT's keyloggers etc. in C/C++ and vb and i think delphi - Jettboi93 - Apr 26, 2009 SCREEN SHOT MAKER : Make a large picbox button1 = "Shoot" Button2 = "Save" Textbox1 Textbox2 CODE-- Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim bounds As Rectangle Dim screenshot As System.Drawing.Bitmap Dim graph As Graphics bounds = Screen.PrimaryScreen.Bounds screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) graph = Graphics.FromImage(screenshot) graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) PictureBox1.Image = screenshot End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim savef As New System.IO.StreamWriter("C:\Users\" + TextBox1.Text + "\documents\" + TextBox2.Text + ".jpg") savef.Write(PictureBox1.Image) savef.Close() MsgBox("Save Successful", MsgBoxStyle.Exclamation, "Success!") End Sub |