Forumo paieška
'Evaldas' .
Pagal jūsų užklausą pavyko rasti 2 rezultatus
-
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.
-
Sveiki. Atėjo laikas pristatyt šį puikų hooką ! Daugelis skundėtės, jog norite pamokos kaip sukurt monitorių kaip sa*g. Tad aš sukuriau šiokį tokį hooką, jis yra MOKAMAS, bet nedaug, vos 2EUR Jis bus kas savaitę atnaujinamas. ATNAUJINIMAI 0.0.1 Versijos atnaujinimai: Sukurtas pilnai hookas : Padaryta kad išgautų informaciją (Žaidėjai ir t.t) Sukurtas nustatymų puslapis (Įjungt/ Išjungt..) 0.0.2 Versijos atnaujinimai: Pridėti warningMessage ir errorMessage warningMessage galima keist nustatymuose, o errorMessage tai jeigu serveris bus nepasiekiamas arba išjungtas, tai jį mums išmes. 0.0.3 Versijos atnaujinimai (NAUJAUSIA) Perdarytas truputį dizainas. Pridėtas progressbar su žaidėjų skaičiumi. Kitoje versijoje planuojama padaryt kaip paspaudi ant žaidėjai (71/300) Kad atsidarytų popup langas, ir kur rodytų žaidėjus, ir kaip paspaudi ant Gamemode (RLS(LTU)...) Kad atsidarytų irgi popup langas kur rodytų šios versijos atnaujinimus ir t.t (Juos galės rašyt Administratorius) PO ~Pusės metų atnaujinimo planai Kitoje versijoje tai jau nebebus hook'as, o bus perdarytas į applicationą. Bus 3monitoriaus tipai - SAMP, CS, Minecraft, nes dabartinis tik samp, tad daug kam nepatiko bus daugiau nustatymų, galima bus pasirinkt pozicijas, sidebare, viršuje, ar apačioje, bei daug kitko ! Taip pat bus išleista 4kalbų: English, Polish, Lithuanian, Russian, kad ir kitose šalyse būčiau žinomas Bus builded on bootstrap/jquery/php Kartu bus visi psd failai Štai nuotrauka sidebare nepabaigta kaip atrodys maždaug na ir daug visko, administracijai bus valdymo panelė kur rodys serverio statistiką, kiek vidutinis mėnėsio žaidėjų kiekis, ir t.t, tik kad kaina pakils iš dviejų eurų į dešimt ;( YPTATUMAI: Tekstus galima redaguot per Manage Languages, nereikia po failus lendžiot. Hookas gan paprastas, sveria vos 20kb+-, neapkrauna tinklapio ir panašiai. Yra gan modernus, tinka kiekvienam dizainui. Informaciją išgauna greitai, nereikia laukt, iškarto atnaujini puslapį, ir jau informacija atvaizduota. ATSISKAITYMAS: SMS Žinute, Mokėjimai.lt pavedimu (Nėra jokio 2x pigiau ar brangiau, viskas ta pačia kaina) KONTAKTAI: - evaldjukas PADĖKOS: Gabas. TAIPOGI PARAŠYKITE KĄ PADARYT KITAME ATNAUJINIME, TAI YRA 0.0.4 versijoje.
- 18 atsakymų
-
- 17
-
-
-
- INVISION POWER BOARD
- IP.BOARD
- (ir dar 6 )