Forumo paieška

Sveiki. Norėčiau pasidalint mano kurtą programą ant VB.NET (Visual Studio 2008 Programa). Programa būtų tokia : Jums išmeta langą kur įvedat "Title" bei "Body Textą" Pasirenkat stilių pavyzdžiui Error, Warning, Information. Spaudžiat Send ir jums išmeta klaida su jūsų norimu textu. Programą dariaus sau. Nes darau savo R.A.T.ą (Remote Administration Tool) Tad prireikė šios sistemos. Trumpas filmukas apie programą smagaus žiūrėjimo Atsiprašau už lagg bei kokybę. Lag dėl to kad siunčiuos žaidimą iš Steam http://youtu.be/GkDPWFjLXh4 Source Code: Sveiki. Norėčiau pasidalint mano kurtą programą ant VB.NET (Visual Studio 2008 Programa). Programa būtų tokia : Jums išmeta langą kur įvedat "Title" bei "Body Textą" Pasirenkat stilių pavyzdžiui Error, Warning, Information. Spaudžiat Send ir jums išmeta klaida su jūsų norimu textu. Programą dariaus sau. Nes darau savo R.A.T.ą (Remote Administration Tool) Tad prireikė šios sistemos. Trumpas filmukas apie programą smagaus žiūrėjimo Atsiprašau už lagg bei kokybę. Lag dėl to kad siunčiuos žaidimą iš Steam http://youtu.be/GkDPWFjLXh4 Source Code: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Multiline = True ComboBox1.Items.Add("Information") ComboBox1.Items.Add("Error") ComboBox1.Items.Add("Warning") ComboBox1.Items.Add("OK Only") ComboBox1.Items.Add("OK, Cancel") ComboBox1.Items.Add("Abort, Retry, Ignore") ComboBox1.Items.Add("Yes, No, Cancel") ComboBox1.Items.Add("Yes, No") ComboBox1.Items.Add("Retry, Cancel") ComboBox1.Items.Add("Question") ComboBox1.SelectedItem = ComboBox1.Items(0) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim body As String Dim title As String body = TextBox2.Text title = TextBox1.Text ''If info.Checked = True Then ''MsgBox(body, MsgBoxStyle.Information, title) ''End If ''If warning.Checked = True Then ''MsgBox(body, MsgBoxStyle.Exclamation, title) ''End If ''If Danger.Checked = True Then ''MsgBox(body, MsgBoxStyle.Critical, title) '' End If If ComboBox1.Text = "Error" Then MsgBox(body, MsgBoxStyle.Critical, title) Button2.Enabled = True End If If ComboBox1.Text = "Information" Then MsgBox(body, MsgBoxStyle.Information, title) Button2.Enabled = True End If If ComboBox1.Text = "Warning" Then MsgBox(body, MsgBoxStyle.Exclamation, title) Button2.Enabled = True End If If ComboBox1.Text = "" Then MsgBox("Error! You didn't made selection", MsgBoxStyle.Critical, "Error") End If If TextBox1.Text = "" Then MsgBox("Error ! You didn't enter a title", MsgBoxStyle.Critical, "Error") End If If TextBox2.Text = "" Then MsgBox("Error ! You didn't enter a body text", MsgBoxStyle.Critical, "Error") End If If ComboBox1.Text = "OK Only" Then MsgBox(body, MsgBoxStyle.OkOnly, title) Button2.Enabled = True End If If ComboBox1.Text = "OK, Cancel" Then MsgBox(body, MsgBoxStyle.OkCancel, title) Button2.Enabled = True End If If ComboBox1.Text = "Abort, Retry, Ignore" Then MsgBox(body, MsgBoxStyle.AbortRetryIgnore, title) Button2.Enabled = True End If If ComboBox1.Text = "Yes, No, Cancel" Then MsgBox(body, MsgBoxStyle.YesNoCancel, title) Button2.Enabled = True End If If ComboBox1.Text = "Yes, No" Then MsgBox(body, MsgBoxStyle.YesNo, title) Button2.Enabled = True End If If ComboBox1.Text = "Retry, Cancel" Then MsgBox(body, MsgBoxStyle.RetryCancel, title) Button2.Enabled = True End If If ComboBox1.Text = "Question" Then MsgBox(body, MsgBoxStyle.Question, title) Button2.Enabled = True End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click MsgBox("Thanks for using. Good Luck ! Bye !", MsgBoxStyle.Information, "Bye") Me.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = "" TextBox2.Text = "" ComboBox1.Text = "" MsgBox("Successfully Cleaned !", MsgBoxStyle.Information, "Information") Button2.Enabled = False End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click MsgBox("Preview Code Add Here !", MsgBoxStyle.Information, "Preview") End Sub End Class Viskas rašyta mano ranka. Žmonėms. Kurie renkasi sau postus ar panašiai. Rašydami : 1. Gėriau visai nieko nekurk. 2. Visual Basic ??? Taigi net dviejų metų vaikas gali padaryt gėriau už tavę ir panašiai. Gaus įspėjimą nuo Administratorių/Moderatorių. D.U.K K.: - Klausimas A.: - Atsakymas K.: Kodėl viskas parašyta anglų kalba? Manau kad tai netavo darbas o kažkur atsiuntėi. A.: Rašiau anglų kalba dėl dviejų priežaščių. Viena būtų tokia : Nes su laiku planuoju paplatint savo RATą anglų forumuose. Tad nemanau kad suprastų Lietuvių kalba. Antroji Priežastis: Jau ir iš video matos, kad mano kompiuterio kalba yra Rusų, tad man reiktų rašyt pavyzdžiui ne Ačių o Aciu. Nes kitaip būdų A??i? kažkas panašaus. K.: Ar galėčiau paplatint tavo sistemą kituose forumuose? A.: Aišku, bet turėtum prirašyt apačioje kažką apie manę (Taprasme kad paėmėi iš šio forumo) Ir kad tai mano kurta programa. Atsiuntimo Link Zippyshare.com - http://www42.zippyshare.com/v/67457245/file.html Visos Teisės Saugomos. Viskas rašyta mano ranka. Žmonėms. Kurie renkasi sau postus ar panašiai. Rašydami : 1. Gėriau visai nieko nekurk. 2. Visual Basic ??? Taigi net dviejų metų vaikas gali padaryt gėriau už tavę ir panašiai. Gaus įspėjimą nuo Administratorių/Moderatorių. D.U.K K.: - Klausimas A.: - Atsakymas K.: Kodėl viskas parašyta anglų kalba? Manau kad tai netavo darbas o kažkur atsiuntėi. A.: Rašiau anglų kalba dėl dviejų priežaščių. Viena būtų tokia : Nes su laiku planuoju paplatint savo RATą anglų forumuose. Tad nemanau kad suprastų Lietuvių kalba. Antroji Priežastis: Jau ir iš video matos, kad mano kompiuterio kalba yra Rusų, tad man reiktų rašyt pavyzdžiui ne Ačių o Aciu. Nes kitaip būdų A??i? kažkas panašaus. K.: Ar galėčiau paplatint tavo sistemą kituose forumuose? A.: Aišku, bet turėtum prirašyt apačioje kažką apie manę (Taprasme kad paėmėi iš šio forumo) Ir kad tai mano kurta programa. Atsiuntimo Link Zippyshare.com - http://www42.zippyshare.com/v/67457245/file.html Visos Teisės Saugomos.