~ حبيت انزل لكم بـعض الاكواد [ للفيجوال بيسـك 6 ] ~
ان شاء الله تعجبكم
كـود .. الانتقال الى الموقع
Dim x As Object
Set x = CreateObject("internetexplorer.application")
x.navigate "www.google.com"
x.Visible = True
كود افراغ حقول التكسـت
Dim i As Integer
For i = 0 To...