System P.I.
Here you will find the latest competition contest and the entries for them. Hurry and submit yours now.
Quick Profile
Information
Posts: 444
Joined: Sat Nov 21, 2009 11:16 pm View Full Profile
Contest still open?
I'm halfway done with my application =D
I'm halfway done with my application =D
Quick Profile
Information
Posts: 444
Joined: Sat Nov 21, 2009 11:16 pm View Full Profile
Okay I rushed through this project to get it done so I can do my homework =D
The attachment is the program.
The source code is here...
Form1 :
The attachment is the program.
The source code is here...
Form1 :
Code: Select all
Form2:
Imports System.Runtime.InteropServices
Imports System.Reflection
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Public Class Form1
<DllImport("user32.dll")> _
Public Shared Function LoadCursorFromFile(ByVal filename As String) As IntPtr
End Function
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.PCCheck = True Then
MsgBox("It seems like I've already gathered your PC information." & vbNewLine & _
"I will just show you your PC information again without the games", MsgBoxStyle.OkOnly, "iSpy PC")
GroupBox1.Visible = True
ProgressBar1.Visible = False
Label1.Text = "Okay Your information are listed below!"
Label2.Text = "Your OS Version Is : " & Environment.OSVersion.ToString
Label3.Text = "Your PC Name Is : " & Environment.UserName.ToString
Label4.Text = "PC Version : " & Environment.Version.ToString
Label5.Text = "Your PC Uptime : " & Mid((Environment.TickCount / 3600000), 1, 5) & " : Hours"
Label6.Text = "Your System Root Is : " & Environment.SystemDirectory.ToString
Label7.Text = "Your Machine Name Is : " & Environment.MachineName.ToString
Label8.Text = "I Am Currently Running @ This Directory : " & Environment.CurrentDirectory.ToString
Label9.Text = "Your User Domain Name Is : " & Environment.UserDomainName.ToString
For z As Integer = 0 To Environment.GetLogicalDrives.Length - 1
Label10.Text += Environment.GetLogicalDrives(z) & " "
Text = "Your PC Information Is Listed Below Along With Your Drives"
Next
Label11.Text = _
FormatNumber(My.Computer.Info.TotalPhysicalMemory, 0) & _
" bytes total in Physical Memory"
Label12.Text = _
FormatNumber(My.Computer.Info.AvailablePhysicalMemory, _
0) & " bytes total in Available Physical Memory"
Label13.Text = _
FormatNumber(My.Computer.Info.AvailableVirtualMemory, _
0) & " bytes total in Virtual Memory"
End If
KeyPreview = True
ProgressBar1.Maximum = 100
If My.Settings.Name.Length < 3 Then
Dim Info As New Form2
Info.TopLevel = False
Info.Visible = True
Me.Controls.Add(Info)
Info.Location = New Point(198, 122)
End If
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
If Label1.Text = "Hello " & My.Settings.Name & ", Please follow my instructions. Click me to go on" Then
Label1.Text = "I want you to try and catch that Pikachu for me :]"
Dim CustomCursor As New Cursor(Cursor.Current.Handle)
Dim colorcursorhandle As IntPtr = LoadCursorFromFile("Cursor.cur")
CustomCursor.[GetType]().InvokeMember("handle", BindingFlags.[Public] Or BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.SetField, Nothing, CustomCursor, New Object() {colorcursorhandle})
Me.Cursor = CustomCursor
Timer1.Enabled = True
PictureBox1.Visible = True
Else
If Label1.Text = "Wow nice job catching that pikachu!" Then
Label1.Text = "I want you to check the options that are TRUE"
CheckBox1.Visible = True
CheckBox2.Visible = True
CheckBox3.Visible = True
CheckBox4.Visible = True
CheckBox5.Visible = True
CheckBox6.Visible = True
Button1.Visible = True
Else
If Label1.Text = "Wow did that took you awhile? heehee" Then
Label1.Text = "Please wait while I finish getting your PC Information."
Timer2.Interval = 1000
Timer2.Enabled = True
Else
If Label1.Text = "Okay Your information are listed below!" Then
MsgBox("Made By NoWayIn!")
End If
End If
End If
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim blah As Integer = Me.Width * Rnd()
Dim meh As Integer = Me.Height * Rnd()
PictureBox1.Top = meh
PictureBox1.Left = blah
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Timer1.Enabled = False
PictureBox1.Visible = False
MsgBox("PIKACHUUUUUUUUUU!!!")
MsgBox("You got attacked with a thunderbolt!")
ProgressBar1.Value = 30
Label1.Text = "Wow nice job catching that pikachu!"
Cursor = Cursors.Default
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBox2.Checked = True Then
Label1.Text = "Wow did that took you awhile? heehee"
ProgressBar1.Value = 50
CheckBox1.Visible = False
CheckBox2.Visible = False
CheckBox3.Visible = False
CheckBox4.Visible = False
CheckBox5.Visible = False
CheckBox6.Visible = False
Button1.Visible = False
Else
MsgBox("Sorry Wrong Combination")
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar1.Value += 5
If ProgressBar1.Value = 100 Then
Label2.Text = "Your OS Version Is : " & Environment.OSVersion.ToString
Label3.Text = "Your PC Name Is : " & Environment.UserName.ToString
Label4.Text = "PC Version : " & Environment.Version.ToString
Label5.Text = "Your PC Uptime : " & Mid((Environment.TickCount / 3600000), 1, 5) & " : Hours"
Label6.Text = "Your System Root Is : " & Environment.SystemDirectory.ToString
Label7.Text = "Your Machine Name Is : " & Environment.MachineName.ToString
Label8.Text = "I Am Currently Running @ This Directory : " & Environment.CurrentDirectory.ToString
Label9.Text = "Your User Domain Name Is : " & Environment.UserDomainName.ToString
For z As Integer = 0 To Environment.GetLogicalDrives.Length - 1
Label10.Text += Environment.GetLogicalDrives(z) & " "
Text = "Your PC Information Is Listed Below Along With Your Drives"
Next
Label11.Text = _
FormatNumber(My.Computer.Info.TotalPhysicalMemory, 0) & _
" bytes total in Physical Memory"
Label12.Text = _
FormatNumber(My.Computer.Info.AvailablePhysicalMemory, _
0) & " bytes total in Available Physical Memory"
Label13.Text = _
FormatNumber(My.Computer.Info.AvailableVirtualMemory, _
0) & " bytes total in Virtual Memory"
Timer2.Enabled = False
MsgBox("Okay I've gathered some information about your PC")
MsgBox("I could not gather much because NoWayIn Sucks in VB")
GroupBox1.Visible = True
Label1.Text = "Okay Your information are listed below!"
ProgressBar1.Visible = False
End If
My.Settings.PCCheck = True
My.Settings.Save()
End Sub
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
End Sub
Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
End Sub
End Class
Code: Select all
Public Class Form2
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Label1.Text = "Press Enter When Done"
End Sub
Private Sub Form2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Enter Then
My.Settings.Name = TextBox1.Text
My.Settings.Save()
Hide()
Form1.Show()
MsgBox("Please Wait While I Get Some Information About Your PC =D" _
& vbNewLine & "Follow the instructions/orders on the screen until I finish")
Form1.Text = "Hello There " & My.Settings.Name
Form1.Label1.Text = "Hello " & My.Settings.Name & ", Please follow my instructions. Click me to go on"
Form1.ProgressBar1.Value = 10
End If
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KeyPreview = True
End Sub
End Class
Quick Profile
Information
Posts: 4389
Joined: Tue Aug 04, 2009 1:47 am View Full Profile
Hello,
Huh I cant seem to use your program, Pikachu just jumps all over the screen and when I click it nothing happens :?
Huh I cant seem to use your program, Pikachu just jumps all over the screen and when I click it nothing happens :?
Welcome to CodenStuff.com Learn Code, Love Code. Thank you for being a member of the community.
Quick Profile
Information
Posts: 444
Joined: Sat Nov 21, 2009 11:16 pm View Full Profile
Click Faster =D
Quick Profile
Information
Posts: 444
Joined: Sat Nov 21, 2009 11:16 pm View Full Profile
Use auto click if needed
Quick Profile
Information
Posts: 258
Joined: Mon Nov 16, 2009 7:39 pm View Full Profile
sorry, decided against participating now ftm got too many projects and not enough HDD space soon my D drive will be out of space too. cryer;
Don't worry though I still have it but I don't get this wmi rubarb. all the namespaces go wrong.
Don't worry though I still have it but I don't get this wmi rubarb. all the namespaces go wrong.
Quick Profile
Information
Posts: 258
Joined: Mon Nov 16, 2009 7:39 pm View Full Profile
NoWayIn wrote:Okay I rushed through this project to get it done so I can do my homework =Dvery nice app and go pikachu! I got attacked by a thunderbolt *grr* lol sorry if there any typos my RTF keeps going up and down
The attachment is the program.
The source code is here...
Form1 :Code: Select allForm2:Imports System.Runtime.InteropServices Imports System.Reflection Imports System.Drawing Imports System.Text Imports System.Windows.Forms Public Class Form1 <DllImport("user32.dll")> _ Public Shared Function LoadCursorFromFile(ByVal filename As String) As IntPtr End Function Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing End End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If My.Settings.PCCheck = True Then MsgBox("It seems like I've already gathered your PC information." & vbNewLine & _ "I will just show you your PC information again without the games", MsgBoxStyle.OkOnly, "iSpy PC") GroupBox1.Visible = True ProgressBar1.Visible = False Label1.Text = "Okay Your information are listed below!" Label2.Text = "Your OS Version Is : " & Environment.OSVersion.ToString Label3.Text = "Your PC Name Is : " & Environment.UserName.ToString Label4.Text = "PC Version : " & Environment.Version.ToString Label5.Text = "Your PC Uptime : " & Mid((Environment.TickCount / 3600000), 1, 5) & " : Hours" Label6.Text = "Your System Root Is : " & Environment.SystemDirectory.ToString Label7.Text = "Your Machine Name Is : " & Environment.MachineName.ToString Label8.Text = "I Am Currently Running @ This Directory : " & Environment.CurrentDirectory.ToString Label9.Text = "Your User Domain Name Is : " & Environment.UserDomainName.ToString For z As Integer = 0 To Environment.GetLogicalDrives.Length - 1 Label10.Text += Environment.GetLogicalDrives(z) & " " Text = "Your PC Information Is Listed Below Along With Your Drives" Next Label11.Text = _ FormatNumber(My.Computer.Info.TotalPhysicalMemory, 0) & _ " bytes total in Physical Memory" Label12.Text = _ FormatNumber(My.Computer.Info.AvailablePhysicalMemory, _ 0) & " bytes total in Available Physical Memory" Label13.Text = _ FormatNumber(My.Computer.Info.AvailableVirtualMemory, _ 0) & " bytes total in Virtual Memory" End If KeyPreview = True ProgressBar1.Maximum = 100 If My.Settings.Name.Length < 3 Then Dim Info As New Form2 Info.TopLevel = False Info.Visible = True Me.Controls.Add(Info) Info.Location = New Point(198, 122) End If End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click If Label1.Text = "Hello " & My.Settings.Name & ", Please follow my instructions. Click me to go on" Then Label1.Text = "I want you to try and catch that Pikachu for me :]" Dim CustomCursor As New Cursor(Cursor.Current.Handle) Dim colorcursorhandle As IntPtr = LoadCursorFromFile("Cursor.cur") CustomCursor.[GetType]().InvokeMember("handle", BindingFlags.[Public] Or BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.SetField, Nothing, CustomCursor, New Object() {colorcursorhandle}) Me.Cursor = CustomCursor Timer1.Enabled = True PictureBox1.Visible = True Else If Label1.Text = "Wow nice job catching that pikachu!" Then Label1.Text = "I want you to check the options that are TRUE" CheckBox1.Visible = True CheckBox2.Visible = True CheckBox3.Visible = True CheckBox4.Visible = True CheckBox5.Visible = True CheckBox6.Visible = True Button1.Visible = True Else If Label1.Text = "Wow did that took you awhile? heehee" Then Label1.Text = "Please wait while I finish getting your PC Information." Timer2.Interval = 1000 Timer2.Enabled = True Else If Label1.Text = "Okay Your information are listed below!" Then MsgBox("Made By NoWayIn!") End If End If End If End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim blah As Integer = Me.Width * Rnd() Dim meh As Integer = Me.Height * Rnd() PictureBox1.Top = meh PictureBox1.Left = blah End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click Timer1.Enabled = False PictureBox1.Visible = False MsgBox("PIKACHUUUUUUUUUU!!!") MsgBox("You got attacked with a thunderbolt!") ProgressBar1.Value = 30 Label1.Text = "Wow nice job catching that pikachu!" Cursor = Cursors.Default End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If CheckBox2.Checked = True Then Label1.Text = "Wow did that took you awhile? heehee" ProgressBar1.Value = 50 CheckBox1.Visible = False CheckBox2.Visible = False CheckBox3.Visible = False CheckBox4.Visible = False CheckBox5.Visible = False CheckBox6.Visible = False Button1.Visible = False Else MsgBox("Sorry Wrong Combination") End If End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick ProgressBar1.Value += 5 If ProgressBar1.Value = 100 Then Label2.Text = "Your OS Version Is : " & Environment.OSVersion.ToString Label3.Text = "Your PC Name Is : " & Environment.UserName.ToString Label4.Text = "PC Version : " & Environment.Version.ToString Label5.Text = "Your PC Uptime : " & Mid((Environment.TickCount / 3600000), 1, 5) & " : Hours" Label6.Text = "Your System Root Is : " & Environment.SystemDirectory.ToString Label7.Text = "Your Machine Name Is : " & Environment.MachineName.ToString Label8.Text = "I Am Currently Running @ This Directory : " & Environment.CurrentDirectory.ToString Label9.Text = "Your User Domain Name Is : " & Environment.UserDomainName.ToString For z As Integer = 0 To Environment.GetLogicalDrives.Length - 1 Label10.Text += Environment.GetLogicalDrives(z) & " " Text = "Your PC Information Is Listed Below Along With Your Drives" Next Label11.Text = _ FormatNumber(My.Computer.Info.TotalPhysicalMemory, 0) & _ " bytes total in Physical Memory" Label12.Text = _ FormatNumber(My.Computer.Info.AvailablePhysicalMemory, _ 0) & " bytes total in Available Physical Memory" Label13.Text = _ FormatNumber(My.Computer.Info.AvailableVirtualMemory, _ 0) & " bytes total in Virtual Memory" Timer2.Enabled = False MsgBox("Okay I've gathered some information about your PC") MsgBox("I could not gather much because NoWayIn Sucks in VB") GroupBox1.Visible = True Label1.Text = "Okay Your information are listed below!" ProgressBar1.Visible = False End If My.Settings.PCCheck = True My.Settings.Save() End Sub Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click End Sub Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click End Sub End ClassCode: Select allPublic Class Form2 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Label1.Text = "Press Enter When Done" End Sub Private Sub Form2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.Enter Then My.Settings.Name = TextBox1.Text My.Settings.Save() Hide() Form1.Show() MsgBox("Please Wait While I Get Some Information About Your PC =D" _ & vbNewLine & "Follow the instructions/orders on the screen until I finish") Form1.Text = "Hello There " & My.Settings.Name Form1.Label1.Text = "Hello " & My.Settings.Name & ", Please follow my instructions. Click me to go on" Form1.ProgressBar1.Value = 10 End If End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load KeyPreview = True End Sub End Class
Quick Profile
Information
Posts: 2870
Joined: Mon Jul 27, 2009 11:58 am View Full Profile
wow NoWayIn Picachoo is on something isn't he ;)
I could not catch him and i nearly wore my finger out trying
Very good, it would keep youngsters amused for hours cooll;
You should do a Proper one and Market it, you might even make some cash out of it.
well done
Chris
I could not catch him and i nearly wore my finger out trying
Very good, it would keep youngsters amused for hours cooll;
You should do a Proper one and Market it, you might even make some cash out of it.
well done
Chris
Quick Profile
Information
Posts: 1610
Joined: Mon Sep 07, 2009 12:25 am View Full Profile
You dont suck in VB NoWayIn! I got pikachu yay
yay
Quick Profile
Information
Posts: 4389
Joined: Tue Aug 04, 2009 1:47 am View Full Profile
Hello,
Only 1 entry? :shock: ....just 1?
I will close this contest soon so if anyone is still interested in entering please do so, you still have time ;).
Would it help if I said the winner gets £1,000,000 lol :P
Thanks for your entry NoWayIn I caught the little pikachu cooll;
Only 1 entry? :shock: ....just 1?
I will close this contest soon so if anyone is still interested in entering please do so, you still have time ;).
Would it help if I said the winner gets £1,000,000 lol :P
Thanks for your entry NoWayIn I caught the little pikachu cooll;
Welcome to CodenStuff.com Learn Code, Love Code. Thank you for being a member of the community.
Copyright Information
Copyright © Codenstuff.com 2020 - 2023