Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

!Problem ze zmiennymi


Rekomendowane odpowiedzi

Opublikowano

Witam, mam problem z dodaniem zmiennych do linku:

 

Imports System.Net

Public Class Form1

Private Sub NsButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NsButton1.Click
Dim wc As WebClient = New WebClient
My.Settings.login = NsTextBox1.Text
My.Settings.haslo = NsTextBox2.Text
NsTextBox5.Text = wc.DownloadString("http://minecraft.net/haspaid.jsp?user=" & NsTextBox1.Text)
If NsTextBox5.Text = "true" Then
NsTextBox5.Text = "Premium"
Else
If NsTextBox5.Text = "false" Then
NsTextBox5.Text = "NonPremium"
End If
End If

If NsTextBox1.Text & NsTextBox2.Text = "" Then
MessageBox.Show("Wpisz Login i Hasło", "Konto")
Else
If NsTextBox1.Text = "" Then
MessageBox.Show("Wpisz Login", "Konto")
Else
If NsTextBox2.Text = "" Then
MessageBox.Show("Wpisz Hasło", "Konto")
End If
End If
End If
NsTextBox3.Text = wc.DownloadString("https://login.minecraft.net/?user=login&password=haslo&version=12")
If NsTextBox3.Text = "Bad login" Then
NsTextBox3.Text = "Brak"
MessageBox.Show("Zły login lub Hasło!", "Konto")
End If

End Sub

Private Sub NsButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NsButton2.Click
Me.Close()
My.Settings.Save()
End Sub

Private Sub NsTheme1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NsTheme1.Click
NsTextBox1.Text = My.Settings.login
NsTextBox2.Text = My.Settings.haslo
End Sub
End Class

głównie to chodzi o to

 

NsTextBox3.Text = wc.DownloadString("https://login.minecraft.net/?user=TU1&password=TU2&version=12")

Próbowałem i próbowałem ale coś mi nie wychodzi.

Niewiem, czy dobrze zrobiłem zmienne, Proszę o pomoc!

Z góry thx.

Opublikowano


NsTextBox3.Text = wc.DownloadString("https://login.minecr...=" & login & "&version=12")

Opublikowano

Mi sie zdaje, że mniej wiecej tak to powinno wyglądać

        NsTextBox3.Text = wc.DownloadString("https://login.minecraft.net/?user=&password=&version=12" & login & haslo)

ale nie działa.

Pisze ciągle że zle haslo jak w programie passy wpisuje dobre, coś jest nie tak !

Opublikowano

boze na logike ... Napisałem korzystaj z tego

"www.lajk.pl/" & haslo & "register" & login

nie bede robil wszystkiego korzystaj ze wzoru...

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...