nerevidey
Hectopat
Daha fazla
- Cinsiyet
- Erkek
Selamun aleyküm.
Üstadlar kendim için ufak bir bilgilendirme yazılımı hazırlamaya çalışıyorum. Programlama da daha çok yeniyim bu kodu çok samimi olmadığım bir arkadaştan aldım ve kendisi yardımcı olmuyor.
Elimde ki kod bu;
Bu kodu yazdığımda iki yerde hata veriyor.
Hata açıklamaları;
Me.Webmain için "Property access must assign to the property or use its value."
New için "Syntax error" hatalarını veriyor bu hataları nasıl aşabilirim yardımcı olur musunuz?
VB.net sürümü 2013.
Üstadlar kendim için ufak bir bilgilendirme yazılımı hazırlamaya çalışıyorum. Programlama da daha çok yeniyim bu kodu çok samimi olmadığım bir arkadaştan aldım ve kendisi yardımcı olmuyor.
Elimde ki kod bu;
Kod:
Private Sub Casusla(ByVal strX As String, ByVal strY As String)
Me.Webmain
New String(4) {}
New String(4) {}(0) = "http://allstar.minefight.com/DetectUnits.aspx?x="
New String(4) {}(0) = "http://allstar.minefight.com/DetectUnits.aspx?x="(1) = strX
New String(4) {}(0) = "http://allstar.minefight.com/DetectUnits.aspx?x="(1) = strX(2) = "&y="
New String(4) {}(0) = "http://allstar.minefight.com/DetectUnits.aspx?x="(1) = strX(2) = "&y="(3) = strY.Navigate(New String(4) {}(0) = "http://allstar.minefight.com/DetectUnits.aspx?x="(1) = strX(2) = "&y="(3) = strY(4) = "&mode=sat")
Do While ((Me.Webmain.ReadyState <> 4) OrElse Me.Webmain.IsBusy)
System.Windows.Forms.Application.DoEvents()
Loop
If (Me.Webmain.DocumentText.IndexOf("Üniteler: Yok") = -1) Then
Me.Webmain.Navigate("http://allstar.minefight.com/InboxSend.aspx")
Do While ((Me.Webmain.ReadyState <> 4) OrElse Me.Webmain.IsBusy)
System.Windows.Forms.Application.DoEvents()
Loop
Dim str1 As String = strX & "," & strY & " nolu koordinatta birlik var."
Me.Webmain.Document.GetElementById("ctl00_cphMain_tbRcpt").SetAttribute("value", "Asus")
Me.Webmain.Document.GetElementById("ctl00_cphMain_tbMsg").SetAttribute("value", str1)
Me.Webmain.Document.GetElementById("ctl00_cphMain_Button1").InvokeMember("click")
Do While ((Me.Webmain.ReadyState <> 4) OrElse Me.Webmain.IsBusy)
System.Windows.Forms.Application.DoEvents()
Loop
System.Threading.Thread.Sleep(5000)
End If
Do While ((Me.Webmain.ReadyState <> 4) OrElse Me.Webmain.IsBusy)
System.Windows.Forms.Application.DoEvents()
Loop
End Sub
Bu kodu yazdığımda iki yerde hata veriyor.
Hata açıklamaları;
Me.Webmain için "Property access must assign to the property or use its value."
New için "Syntax error" hatalarını veriyor bu hataları nasıl aşabilirim yardımcı olur musunuz?
VB.net sürümü 2013.
Son düzenleyen: Moderatör: