حالة الموضوع:
مغلق
  1. SaTtAr

    SaTtAr مراقب عآم

    الأنتساب:
    ‏24 أكتوبر 2015
    المشاركات:
    68
    الإعجابات المتلقاة:
    48
    نقاط الجائزة:
    18
    الوظيفة:
    هندسه حاسبات
    الإقامة:
    iraq
    [FONT=Titillium Web, sans-serif]Step 1:[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Start a new project and name it Builder. Start another project and name it stub.[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Step 2:[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Go in the builder project and add 4 radio buttons, 2 buttons and 2 textboxes making the second one multilines, the first button named "Test" and the second "Build". radiobutton1's text to "Critical" radiobutton2's text to "Information" radiobutton3's text to "YesNo" and radiobutton4's text to "exclamation". [/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Step 3:[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Double click the "Test button and add this code:[/FONT]
    [FONT=Titillium Web, sans-serif]Code:[/FONT]
    [FONT=Titillium Web, sans-serif]if radiobutton1.checked = true then[/FONT]
    [FONT=Titillium Web, sans-serif]msgbox(textbox2.text, msgboxstyle.critical, textbox1.text)[/FONT]
    [FONT=Titillium Web, sans-serif]elseif radiobutton2.checked = true then[/FONT]
    [FONT=Titillium Web, sans-serif]msgbox(textbox2.text, msgboxstyle.information, textbox1.text)[/FONT]
    [FONT=Titillium Web, sans-serif]elseif radiobutton3.checked = true then[/FONT]
    [FONT=Titillium Web, sans-serif]msgbox(textbox2.text, msgboxstyle.yesno, textbox1.text)[/FONT]
    [FONT=Titillium Web, sans-serif]elseif radiobutton4.checked = true then[/FONT]
    [FONT=Titillium Web, sans-serif]msgbox(textbox2.text, msgboxstyle.exclamation , textbox1.text)[/FONT]
    [FONT=Titillium Web, sans-serif]end if[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Step 4:[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Change the names of the components to these ones in front of them in the designer:[/FONT]
    [FONT=Titillium Web, sans-serif]RadioButton1.Name = "critical"[/FONT]
    [FONT=Titillium Web, sans-serif]RadioButton2.Name = "information"[/FONT]
    [FONT=Titillium Web, sans-serif]RadioButton3.Name = "yesno"[/FONT]
    [FONT=Titillium Web, sans-serif]RadioButton4.Name = "exclamation"[/FONT]
    [FONT=Titillium Web, sans-serif]textbox1.name = "msgtitle"[/FONT]
    [FONT=Titillium Web, sans-serif]textbox2.name = "msgbody"[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Step 5:[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Double click the build button and add this:[/FONT]
    [FONT=Titillium Web, sans-serif]Code:[/FONT]
    [FONT=Titillium Web, sans-serif]io.file.copy(CurDir() & "\stub.exe", curdir & "\server.exe")[/FONT]
    [FONT=Titillium Web, sans-serif]io.file.appendalltext( curdir & "\server.exe", "FileSpilt" & msgbody.text & "FileSpilt" & msgtitle.text & "FileSpilt" & critical.checked & "FileSpilt" & information.checked & "FileSpilt" & yesno.checked & "FileSpilt" & exclamation.checked )[/FONT]
    [FONT=Titillium Web, sans-serif]MsgBox("Built!", msgboxstyle.Information)[/FONT]
    [FONT=Titillium Web, sans-serif]process.start(curdir)[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Step 6:[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Go in the stub and add this code to the form's load:[/FONT]
    [FONT=Titillium Web, sans-serif]Code:[/FONT]
    [FONT=Titillium Web, sans-serif]Me.Height = 0[/FONT]
    [FONT=Titillium Web, sans-serif]Me.Width = 0[/FONT]
    [FONT=Titillium Web, sans-serif]Me.Opacity = 0[/FONT]
    [FONT=Titillium Web, sans-serif]Me.Hide()[/FONT]
    [FONT=Titillium Web, sans-serif]Me.Visible = False[/FONT]
    [FONT=Titillium Web, sans-serif]Me.ShowInTaskbar = False[/FONT]
    [FONT=Titillium Web, sans-serif]Me.ShowIcon = False[/FONT]
    [FONT=Titillium Web, sans-serif]Dim msgtitle, msgbody As String[/FONT]
    [FONT=Titillium Web, sans-serif]Dim Critical, information, yesno, exclamation As Boolean[/FONT]
    [FONT=Titillium Web, sans-serif]Dim BinText As String = IO.File.ReadAllText(Application.ExecutablePath)[/FONT]
    [FONT=Titillium Web, sans-serif]If BinText.Contains("FileSpilt") = False Then Exit Sub[/FONT]
    [FONT=Titillium Web, sans-serif]Dim ArrContents() As String = Split(BinText, "FileSpilt")[/FONT]
    [FONT=Titillium Web, sans-serif]msgtitle = ArrContents(1)[/FONT]
    [FONT=Titillium Web, sans-serif]msgbody = ArrContents(2)[/FONT]
    [FONT=Titillium Web, sans-serif]Critical = ArrContents(3)[/FONT]
    [FONT=Titillium Web, sans-serif]information = ArrContents(4)[/FONT]
    [FONT=Titillium Web, sans-serif]yesno = ArrContents(5)[/FONT]
    [FONT=Titillium Web, sans-serif]exclamation = ArrContents(6)[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]If Critical = True Then[/FONT]
    [FONT=Titillium Web, sans-serif] MsgBox(msgbody, MsgBoxStyle.Critical, msgtitle)[/FONT]
    [FONT=Titillium Web, sans-serif]ElseIf information = True Then[/FONT]
    [FONT=Titillium Web, sans-serif] MsgBox(msgbody, MsgBoxStyle.Information, msgtitle)[/FONT]
    [FONT=Titillium Web, sans-serif]ElseIf yesno = True Then[/FONT]
    [FONT=Titillium Web, sans-serif] MsgBox(msgbody, MsgBoxStyle.YesNo, msgtitle)[/FONT]
    [FONT=Titillium Web, sans-serif]ElseIf exclamation = True Then[/FONT]
    [FONT=Titillium Web, sans-serif] MsgBox(msgbody, MsgBoxStyle.Exclamation, msgtitle)[/FONT]
    [FONT=Titillium Web, sans-serif]End If[/FONT]
    [FONT=Titillium Web, sans-serif]Me.Close()[/FONT]
    [FONT=Titillium Web, sans-serif]Catch ex As Exception[/FONT]
    [FONT=Titillium Web, sans-serif]End Try[/FONT]
    [FONT=Titillium Web, sans-serif]End Sub[/FONT]
    [FONT=Titillium Web, sans-serif]__________________________________________________________________-[/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]Thanks [/FONT]:ُeُe0y:
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
    [FONT=Titillium Web, sans-serif]
    [/FONT]
     
  2. حسين رضا

    حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    90
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    8
    رد: Make your error Builder

    Thinks bro{1!$8}{1!$8}
     
  3. فريق الاستغلال

    فريق الاستغلال Developer

    الأنتساب:
    ‏11 فبراير 2016
    المشاركات:
    178
    الإعجابات المتلقاة:
    58
    نقاط الجائزة:
    28
    رد: Make your error Builder

    Thinks man:{1!}:
     
  4. آرْ بْيْ جْيْ ڪْرْڪْوْڪْ

    آرْ بْيْ جْيْ ڪْرْڪْوْڪْ DeveloPer Plus

    الأنتساب:
    ‏24 أغسطس 2015
    المشاركات:
    147
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    رد: Make your error Builder

    Good Job Guy
     
  5. Hacker iraqi

    Hacker iraqi Developer

    الأنتساب:
    ‏31 مارس 2015
    المشاركات:
    31
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الإقامة:
    IRAQ
    رد: Make your error Builder

    عشت بارك الله فيك موضوع رائع
     
  6. !_عبدالله عباس_!

    !_عبدالله عباس_! DeveloPer Plus

    الأنتساب:
    ‏13 نوفمبر 2015
    المشاركات:
    420
    الإعجابات المتلقاة:
    380
    نقاط الجائزة:
    63
    رد: Make your error Builder

    Good job
     
  7. مستر سعاده

    مستر سعاده Developer

    الأنتساب:
    ‏10 مايو 2015
    المشاركات:
    52
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    رد: Make your error Builder

    يعطيك العافيه

    سلمت ايدينك
     
  8. Maxhack

    Maxhack Developer

    الأنتساب:
    ‏5 مارس 2016
    المشاركات:
    105
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    رد: Make your error Builder

    I love you
     
  9. هكر المغرب

    هكر المغرب New Developer

    الأنتساب:
    ‏24 مايو 2016
    المشاركات:
    25
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    رد: Make your error Builder

    مبدع اخوي
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة