Ücretsiz SMS gönderen Program — VB NET
[code lang=”VB”]
Public Class Form1
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Label6.Text = TextBox4.MaxLength – TextBox4.Text.Length
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Yublu.Navigate("https://www.yublu.com/v2/")
End Sub
Private Sub Yublu_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles Yublu.NavigateComplete2
If Yublu.LocationName = "Yublu" Then
Label7.Text = ("Site Durumu : Açık")
Button1.Enabled = True ‘www.gorselprogramlama.com/
Else
Label7.Text = ("Site Durumu : Kapalı")
Button1.Enabled = False
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
‘javascript:openView(‘signup’)
Yublu.Document.parentWindow.execScript("openView(‘signup’)", "JScript") ‘ Üye girişi
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text.Length <= 0 Or TextBox2.Text.Length <= 0 Then
MsgBox("Kullanıcı Adını veya Şifreyi girmediniz.", 16, "Dikkat")
Else
Yublu.Document.parentWindow.execScript("openView(‘logout’)", "JScript") ‘ Çıkış Butonu
Yublu.Document.getElementById("login_username").innertext = TextBox1.Text ‘ Kullanıcı Adı
Yublu.Document.getElementById("login_password").innertext = TextBox2.Text ‘ Şifre
Yublu.Document.parentWindow.execScript("doLogin()", "JScript") ‘ Üye girişi
‘Burda Kullanıcı adı şifre doğrulaması yapılcak (siteden)
MsgBox("Başarılı bir şekilde giriş yapıldı.", , "Merhaba " & TextBox1.Text)
Label8.Text = "Başarılı bir şekilde giriş yapıldı. " & TextBox1.Text
Button1.Enabled = False
TextBox1.Enabled = False
TextBox2.Enabled = False
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘message_number
‘message_text
‘stepTwo() : startSending
If TextBox3.Text.Length <> 10 Or TextBox4.Text.Length <= 0 Then
MsgBox("Telefon Numarasını eksik girdiniz veya Mesaj içeriğini yazmadınız", 16, "Uyarı")
Else ‘www.gorselprogramlama.com/
Yublu.Document.all.item("message_number").value = TextBox3.Text ‘ Numara
Yublu.Document.all.item("message_text").value = TextBox4.Text ‘ Mesaj
Yublu.Document.parentWindow.execScript("startSending()", "JScript") ‘ Gönder Butonu
ProgresBar.Enabled = True
End If
End Sub
Private Sub ProgresBar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgresBar.Tick
If ProgressBar1.Value <> 100 Then
ProgressBar1.Value += 1
Button2.Enabled = False
Else
ProgressBar1.Value = 0
Button2.Visible = False
Button2.Enabled = True
GroupBox2.Enabled = False
Button6.Visible = True
ProgresBar.Enabled = False
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Button2.Visible = True
GroupBox2.Enabled = True
Button6.Visible = False
End Sub ‘www.gorselprogramlama.com/
End Class
[/code]