[Release] FS01, piccolo programmino in VisualBasic

Ciao a tutti, oggi volevo mostrarmi questo piccolo programmino creato da me, originalmente funzionava aprendo un file batch sul cmd, ma ora l'ho convertito in un programma serio, scritto in linguaggio VisualBasic.

Nome programma: FS01

Cosa permette di fare: permette di: Avviare minecraft da un pulsante, visualizzare la skin di un qualsiasi player (il programma per visualizzare le skin l'ho trovato su internet, poi io l'ho integrato in FS01), aprire la cartella di java installato sul proprio pc (a volte si bugga con i pc in 64 bit, sistemerò al più presto), da FS01 puoi aprire la cartella delle resourcepacks di minecraft, seplicemente con un click, è possibile eseguire il ping di un indirizzo ip da voi scelto e contiene una calcolatrice con le seguenti operazioni: + (più), - (meno), X (per), : (diviso), ^ (elevazione a potenza).

In che linguaggio è stato scritto: VisualBasic
Con quale editor è stato scritto: Visual Studio 2013
Quali saranno le prossime modifiche: Aggiungerò il sistema per controllare la console di un server minecraft, sistemerò alcuni bug e seguirò i vostri consigli.

Dunque, ora vi spiego come eseguire il download, per prima cosa rechiamoci in questo link: _LINK_
Selezioniamo il file: FS01 Revolution.zip e lo scarichiamo cliccando sul pulsante su questa immagine:
[Immagine: t7vmfhY.jpg]

Dunque, spero questo programma vi piaccia e alla prossima, mi raccomando, datemi dei consigli.
Ah p.s. la developer licence lasicatela stare, serve solo per far riconoscere al programma se sei uno sviluppatore o no.
Funziona anche su linux?
My Config:
    MotherBoard: GigaByte 990 FX A-UD3 Ultra Durable
    CPU: AMD FX-8350 (8 core, 4.00GHz)
    Dissipatore: ThermalRight Macho HR-02 Rev.a
    RAM: Corsair Vengeance 8GB 4GBx2
    GPU: nVidia GTX 780 Asus OC
    PSU: Corsair CX 750M
    Case: Cooler Master 690 III Midi
    SSD 256GB
    HHD 1TB
    Masterizzatore
Potresti fare un controllo con Viruscan ?
ho fatto uno scan io: https://www.virustotal.com/it/file/cc677...410812223/   mmmm...
[Immagine: MCNT_55269c0298d31_1.png]
Non ha virus, ve lo assicuro. No @SkiFire13 per ora è solo per windows

Lo segnano sospetto 2 antivirus perché è un programma che contiene tracce di altri programmi, però non sono virus, ve lo assicuro, volete che vi posto il codice in visualbasic che ho scritto? (Modificato 15/09/2014, 22:44 da RealFantasy.)
15/09/2014, 15:48Fantasy2001 ha scritto: Ciao a tutti, oggi volevo mostrarmi questo piccolo programmino creato da me, originalmente funzionava aprendo un file batch sul cmd, ma ora l'ho convertito in un programma serio, scritto in linguaggio VisualBasic.

Nome programma: FS01

Cosa permette di fare: permette di: Avviare minecraft da un pulsante, visualizzare la skin di un qualsiasi player (il programma per visualizzare le skin l'ho trovato su internet, poi io l'ho integrato in FS01), aprire la cartella di java installato sul proprio pc (a volte si bugga con i pc in 64 bit, sistemerò al più presto), da FS01 puoi aprire la cartella delle resourcepacks di minecraft, seplicemente con un click, è possibile eseguire il ping di un indirizzo ip da voi scelto e contiene una calcolatrice con le seguenti operazioni: + (più), - (meno), X (per), : (diviso), ^ (elevazione a potenza).

In che linguaggio è stato scritto: VisualBasic
Con quale editor è stato scritto: Visual Studio 2013
Quali saranno le prossime modifiche: Aggiungerò il sistema per controllare la console di un server minecraft, sistemerò alcuni bug e seguirò i vostri consigli.

Dunque, ora vi spiego come eseguire il download, per prima cosa rechiamoci in questo link: _LINK_
Selezioniamo il file: FS01 Revolution.zip e lo scarichiamo cliccando sul pulsante su questa immagine:
[Immagine: t7vmfhY.jpg]

Dunque, spero questo programma vi piaccia e alla prossima, mi raccomando, datemi dei consigli.
Ah p.s. la developer licence lasicatela stare, serve solo per far riconoscere al programma se sei uno sviluppatore o no.
Carino...ma ti consiglio di NON fare il supporto console....

Inviato dal mio Samsung Galaxy SIII Neo usando tapatalk
<a href="http://goo.gl/aFXRxy" target="_blank">
<img src="http://goo.gl/DpGW9r">
</a>
http://novaminecraft.altervista.org/forum/

[Immagine: K2Disg][Immagine: ikT3Fa]TheGamers98
15/09/2014, 22:27Fantasy2001 ha scritto: Non ha virus,  ve lo assicuro.  No @SkiFire13 per ora è solo per windows

Lo segnano sospetto 2 antivirus perché è un programma che contiene tracce di altri programmi, però non sono virus, ve lo assicuro, volete che vi posto il codice in visualbasic che ho scritto?

Sarebbe meglio, non lo dico per me ma per quelli che sanno più di me e verresti linciato dopo 1 secondo
Ok, quando torno a casa vi posto il codice da pc. Se volete potete consigliarmi che funzione aggiungere
ecco il file principale, poi in alcuni punti si collega ad altri file, che se volete vi posto, alcuni li ho fatti io e alcuni no

Codice:
Public Class Form1
    Dim nome As String
    Dim appData As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
    Dim programFiles As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
    Dim WithEvents Minecraft As Diagnostics.Process
    Private Const mypass = "******"
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Settings.sbloccato = True Then
            Button2.Visible = False
            Label2.Visible = True
        Else
            Button2.Visible = True
            Label2.Visible = False
        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        nome = TextBox1.Text
        Dim risposta As MsgBoxResult
        risposta = MsgBox("questo è il tuo nome: " & nome & ". Non è vero?", MsgBoxStyle.YesNo)
        If risposta = MsgBoxResult.Yes Then
            game.Visible = True
            skin.Visible = True
            resourcepack.Visible = True
            pinger.Visible = True
            java.Visible = True
            calcolatrice.Visible = True

        Else

        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles game.Click
        Minecraft = Process.Start(Application.StartupPath & "\minecraft.exe")
        MsgBox("Launcher di minecraft avviato!")

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles java.Click
        Process.Start("Explorer.exe", programFiles & "\java")
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles calcolatrice.Click
        Form2.ShowDialog()

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles pinger.Click
        Process.Start(Application.StartupPath & "\pinger.bat")
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles resourcepack.Click
        Process.Start("Explorer.exe", appData & "\.minecraft\resourcepacks")
    End Sub

   
    Private Sub skin_Click(sender As Object, e As EventArgs) Handles skin.Click
        Process.Start(Application.StartupPath & "\skin.exe")
        MsgBox(nome & " sto avviando MCSkinViewer...")

    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        If Form3.ShowDialog = Windows.Forms.DialogResult.OK Then
            If Form3.password = mypass Then
                My.Settings.sbloccato = True
                Button2.Visible = False
                Label2.Visible = True

            Else
                MsgBox("Mi dispiace, la password è sbagliata!")
            End If
        End If
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

    End Sub
End Class
(Modificato 16/09/2014, 21:15 da RealFantasy.)
16/09/2014, 17:32Fantasy2001 ha scritto: ecco il file principale, poi in alcuni punti si collega ad altri file, che se volete vi posto, alcuni li ho fatti io e alcuni no

Public Class Form1
    Dim nome As String
    Dim appData As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
    Dim programFiles As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
    Dim WithEvents Minecraft As Diagnostics.Process
    Private Const mypass = "******"
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Settings.sbloccato = True Then
            Button2.Visible = False
            Label2.Visible = True
        Else
            Button2.Visible = True
            Label2.Visible = False
        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        nome = TextBox1.Text
        Dim risposta As MsgBoxResult
        risposta = MsgBox("questo è il tuo nome: " & nome & ". Non è vero?", MsgBoxStyle.YesNo)
        If risposta = MsgBoxResult.Yes Then
            game.Visible = True
            skin.Visible = True
            resourcepack.Visible = True
            pinger.Visible = True
            java.Visible = True
            calcolatrice.Visible = True

        Else

        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles game.Click
        Minecraft = Process.Start(Application.StartupPath & "\minecraft.exe")
        MsgBox("Launcher di minecraft avviato!")

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles java.Click
        Process.Start("Explorer.exe", programFiles & "\java")
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles calcolatrice.Click
        Form2.ShowDialog()

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles pinger.Click
        Process.Start(Application.StartupPath & "\pinger.bat")
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles resourcepack.Click
        Process.Start("Explorer.exe", appData & "\.minecraft\resourcepacks")
    End Sub

   
    Private Sub skin_Click(sender As Object, e As EventArgs) Handles skin.Click
        Process.Start(Application.StartupPath & "\skin.exe")
        MsgBox(nome & " sto avviando MCSkinViewer...")

    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        If Form3.ShowDialog = Windows.Forms.DialogResult.OK Then
            If Form3.password = mypass Then
                My.Settings.sbloccato = True
                Button2.Visible = False
                Label2.Visible = True

            Else
                MsgBox("Mi dispiace, la password sbagliata!")
            End If
        End If
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

    End Sub
End Class
Correggi.
In fondo c'è scritto la password sbagliata.
Non è: La password è sbagliata
?

-MarioAnak
Discussioni simili
Ultimo: _Mega_
16/09/2017, 19:58
 
[Problema] OBS in Rec
5 83
Ultimo: SkullDark
06/09/2017, 16:40
08/08/2017, 23:20
 
[Risolto] Minecraft in un VPS
sup3r93
11 344
Ultimo: signoreTNT12
01/08/2017, 02:09

Utente(i) che stanno guardando questa discussione: 1 Ospite(i)