Prośba o przerobienie kodu

Cześć właśnie chciałem trochę zwiększyć swoje zarobki i porobić takie Updatery .

U konkurencji znalazłem taki kod :

 

Public Class Form1

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Answer As String

 

        Dim MyNote As String

 

        'Place your text here

 

        MyNote = "There's an updated version of this program available. Would you like to download now?"

 

        'Display MessageBox

 

        Answer = MsgBox(MyNote, vbYesNo, "Please update")

 

        If Answer = vbNo Then

 

            'Code for No button Press

 

            MessageBox.Show("Program will close now. If you want to use this program please update to the newest version.", "Please update", MessageBoxButtons.OK)

 

            End

 

        Else

 

            'Code for Yes button Press

 

            System.Diagnostics.Process.Start("link"

        End If

    End Sub

Chodzi o to ,że podczas uruchamiania programu wyskakuje właśnie to pytanie czy zaktualizować ,a jak nacisnę ,że yes to przenosi mnie do linka i otwiera mi program .

Przerobił by mi ktoś ,żeby podczas uruchamiania hacka wyskakiwał tylko komunikat i żeby nie otwierało mi programu .

System.Diagnostics.Process.Start("link")

W miejscu link wstawiasz swój link, cała filozofia

System.Diagnostics.Process.Start("link")

 

W miejscu link wstawiasz swój link, cała filozofia

A umiesz czytać ,ze zrozumieniem ?

Ja to wiem ,że tam trzeba link wstawić ,ale chodiz o to ,że podczas otwierania programu wyskakuje komunikat

There's an updated version of this program available. Would you like to download now?

Nacisnę Yes i przenosi mnie do linku + do tego otwiera mi program .

A ja chcę ,żeby mnie przeniosło do linku bez otwarcia programu .

w następnej linijce wpisz END 

nie musisz się tak spinać odrazu

Jak dobrze zrozumiałem to po :

System.Diagnostics.Process.Start("link")

Mam wpisać END ?

U mnie bynajmniej nie działa . Jak możesz to skopiuj kod i pokaż gdzie dokładnie mam wstawić to END .

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Answer As String

Dim MyNote As String

'Place your text here

MyNote = "There's an updated version of this program available. Would you like to download now?"

'Display MessageBox

Answer = MsgBox(MyNote, vbYesNo, "Please update")

If Answer = vbNo Then

'Code for No button Press

MessageBox.Show("Program will close now. If you want to use this program please update to the newest version.", "Please update", MessageBoxButtons.OK)

End

Else

'Code for Yes button Press

System.Diagnostics.Process.Start("link")

End

End If

End Sub

O teraz działa jak należy .

Dzięki chłopaki .