[Message Sender] By Evaldas.

[Snow*]

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.

Redaguota Balandžio 18, 2014, nario Evaldas .

[TETYYS]

Norėčiau pamatyt RAT, heehe

[Zero Two]

Sorry, netyčia prikėliau temą

Redaguota Gruodžio 30, 2015, nario Dr.Arnas

[b0ss]

VB? Taikaisi tik į Win vartotojus? Nah... 

Kitą kartą geriau naudok "switch" statementą, vietoj galybės if'ų.

 

Visos Teisės Saugomos.

Ką tu čia saugai?