DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Set a = .document.getElementsByClassName("openLink")
For Each b In a
If b.innerHTML = "GÜVENCE" Then
MsgBox b.innerText & " bulundu"
b.Click
End If
Next<table class="MsoNormalTable" border="0" cellspacing="0" cellpadding="0" width="100%" style="width:100.0%;border-collapse:collapse;mso-yfti-tbllook:1184">
<tbody><tr style="mso-yfti-irow:0;mso-yfti-firstrow:yes;mso-yfti-lastrow:yes;
page-break-inside:avoid;height:45.0pt">
<td style="padding:.75pt 11.25pt .75pt 11.25pt;height:45.0pt"></td>
<td style="padding:.75pt .75pt .75pt .75pt;height:45.0pt">
<p class="MsoNormal"><span style="font-size:10.5pt;font-family:"Helvetica","sans-serif";
mso-fareast-font-family:"Times New Roman";color:#333333"><a href="http://deneme-1/" id="linkt_8" data-uyg-kod="DENEME" data-link="http://DENEME-1 "> DENEME-1/</a>
<o:p></o:p></span></p>
</td>
</tr>
</tbody></table>
[c/ode]
Dim islem, URL As String
Dim ie As Object
Dim objCollection As Object
Sub menu()
Application.ScreenUpdating = False
Call url_ac
Call tikla
Application.ScreenUpdating = True
End Sub
Sub bekle()
With ie
Do Until .readyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
End With
End Sub
Sub url_ac()
URL = "[COLOR=Red]http://www.excel.web.tr/index.php[/COLOR]"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate URL
.Visible = 1
End With
basla:
Call bekle
'KAYIT Olun yazıcı DENEME-1 olarak değiştirilecek
If InStr(ie.document.body.innerText, "[COLOR=Red]KAYIT Olun[/COLOR]") = 0 Then
GoTo basla
End If
End Sub
Sub tikla()
Set objCollection = ie.document.getElementsByTagName("a")
i = 0
Do While i < objCollection.Length
'Bu şekilde başka linkleri de tıklama ihtimali olmak ile beraber kullanılabilir.
'If instr(objCollection(i).innerText ,"DENEME-1")>0 Then
'KAYIT Olun yazıcı DENEME-1 olarak değiştirilecek
If objCollection(i).innerText = "[COLOR=Red]KAYIT Olun[/COLOR]" Then
objCollection(i).Click
Exit Do
End If
i = i + 1
Loop
End Sub
Dim islem, URL As String
Dim ie As Object
Dim objCollection As Object
Sub menu()
Application.ScreenUpdating = False
Call url_ac
Call tikla
Application.ScreenUpdating = True
End Sub
Sub bekle()
With ie
Do Until .readyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
End With
End Sub
Sub url_ac()
URL = "https://uyg.sgk.gov.tr/TesvikYersizFaydalanma/"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate URL
.Visible = 1
End With
basla:
Call bekle
'KAYIT Olun yazıcı DENEME-1 olarak değiştirilecek
If InStr(ie.document.body.innerText, "Kullanıcı Adı") = 0 Then
GoTo basla
End If
End Sub
Sub tikla()
Set objCollection = ie.document.getElementsByTagName("input")
i = 0
Do While i < objCollection.Length
If objCollection(i).Name = "basvuru.tcKimlikNo" Then
objCollection(i).Value = "123456789"
Exit Do
End If
i = i + 1
Loop
Call bekle
Set objCollection = ie.document.getElementsByTagName("input")
i = 0
Do While i < objCollection.Length
If objCollection(i).Name = "basvuru.sistemSifre" Then
objCollection(i).Value = "sistemsifre"
Exit Do
End If
i = i + 1
Loop
Call bekle
Set objCollection = ie.document.getElementsByTagName("input")
i = 0
Do While i < objCollection.Length
If objCollection(i).Name = "basvuru.isyeriSifre" Then
objCollection(i).Value = "isyerisifre"
Exit Do
End If
i = i + 1
Loop
Call bekle
Application.Wait Now + TimeValue("00:00:04")
Set objCollection = ie.document.getElementsByTagName("input")
i = 0
Do While i < objCollection.Length
If objCollection(i).ID = "userLogin_0" Then
objCollection(i).Click
Exit Do
End If
i = i + 1
Loop
End Sub