Jump to content

Visualbasicte Autoit Kodlamaları


mustiback
 Share

Recommended Posts

Bu konuda visualbasicte autoit kodlarını nasıl kullanacağımız yazmaktadır.Bu dllyi .NET ve VB 6.0 da kullanabilirsiniz.

Öncelikle

AutoItx3.dll indirmeniz lazım

http://rapidshare.com/files/144597948/AutoItX3.dll

Bu dosyayı indirdikten sonra dosyayı kaydetmeniz gerekmektedir.

Başlat>çalıştır cmd yazıp regsvr32 AutoItx3.dll yazmanız yeterlidir.

VB.NET

Eğer VB.NET kullanıyorsanız resimdeki gibi Project bölümünden Add Reference bölümüne girip

musti1dt4.png

Bunu yaptıktan sonra sadece projemize

Dim Komut As New AutoItX3Lib.AutoItX3

Artık autoit kodlarını tüm formda komut komutu ile kullanabiliriz.Sadece autoit kodunun başına komut yazıoruz.

ÖRNEK:

Komut.Run("notepad.exe")
Komut.Sleep(100)
Komut.Send("www.TncTR.com by mustiback")

VisualBasic 6.0 da kullanımı

musti2vb5.png

Öncelikle project bölümüne girip references bölümünden autoit3x 1.0 library yazan yazıyı bulup işaretlemeniz gerekmektedir.

Ekledikten sonra projemize sadece

Dim Komut As New AutoItX3Lib.AutoItX3

yazıyoruz.Daha sonra kodları yazabilirsiniz.

ÖRNEK:

komut.Run("notepad.exe")

komut.Sleep(1000)

komut.Send("www.Tnctr.com by mustiback")

Yukarıda yazdığım tüm kodlar denenmiştir.

Edited by mustiback
Link to comment
Share on other sites

  • 1 yıl yıl...
  • 1 yıl yıl...
  • 4 ay sonra...

[codebox]Private Sub Form_Load()Dim Komut As New AutoItX3Lib.AutoItX3#include <GUIConstants.au3>#include <Date.au3>#include <IE.au3>Opt("GUIOnEventMode", 1)#Region ### START Koda GUI section$Form1_1 = GUICreate("TariH - SaaT", 282, 290, 194, 111)GUISetBkColor(0xD8E4F8)GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1_1Close")GUISetOnEvent($GUI_EVENT_MINIMIZE, "AForm1_1Minimize")GUISetOnEvent($GUI_EVENT_MAXIMIZE, "AForm1_1Maximize")GUISetOnEvent($GUI_EVENT_RESTORE, "AForm1_1Restore")$Button1 = GUICtrlCreateButton("Tarih Saat", 16, 8, 121, 49, 0)GUICtrlSetOnEvent(-1, "AButton1Click")$Button3 = GUICtrlCreateButton("Tarih", 144, 8, 121, 49, 0)GUICtrlSetOnEvent(-1, "AButton3Click")$Button4 = GUICtrlCreateButton("Haftanın Hangi Günü?", 144, 64, 121, 49, 0)GUICtrlSetOnEvent(-1, "AButton4Click")$Button5 = GUICtrlCreateButton("TNCTR", 16, 64, 121, 49, 0)GUICtrlSetOnEvent(-1, "AButton5Click")$MonthCal1 = GUICtrlCreateMonthCal("2009/08/03", 16, 120, 169, 161)GUICtrlSetOnEvent(-1, "AMonthCal1Change")$Button2 = GUICtrlCreateButton("Hakkında", 192, 120, 73, 161, 0)GUICtrlSetOnEvent(-1, "AButton2Click")GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###While 1 Sleep (100)Wend Func AButton1Click()MsgBox(4096, "TariH - SaaT", & @MDAY "/" & @MON & @YEAR, 0)EndFunc Func AButton2Click()MsgBox(4096, "Hakkında", "Bu program TnC TR adına CaN tarafından yazılmıştır.", 0)EndFunc Func AButton3Click()MsgBox( 4096, "Tarih", _DateTimeFormat( _NowCalc(),1))EndFunc Func AButton4Click()$sLongDayName = _DateDayOfWeek( @WDAY ); Retrieve the abbreviated name$sShortDayName = _DateDayOfWeek( @WDAY, 1 )MsgBox( 4096, "Haftanın Hangi Günü", "Bugün: " & $sLongDayName & " (" & $sShortDayName & ")" )EndFunc Func AButton5Click()$oIE = _IECreate ("www.tnctr.com")EndFunc Func AForm1_1Close()ExitEndFunc Func AForm1_1Maximize()EndFunc Func AForm1_1Minimize()EndFunc Func AForm1_1Restore()EndFunc Func AMonthCal1Change()EndFuncEnd Sub[/codebox]

örneğin böyle yapıyorum hata veriyor.

Link to comment
Share on other sites

  • 1 yıl yıl...

[quote name='hackerteam35' date='15 June 2011 - 13:16 ' timestamp='1308136583' post='1029967']
kodları yapıştırıyorum fakat hatalar veriyor .her kod için uyumlumu?
[/quote]
Komut. yazdıktan sonra orada kullana bileceğin tüm kodları gösteriyor.

Link to comment
Share on other sites

  • 7 ay sonra...
  • 3 ay sonra...
  • 2 years yıl...

kardeşim merhabaralar,linki günceller misin ve  Imageshack hesabıyla girmeme rağmen fotoğrafları görünmüyor. Normal olarak fotoğraf yükleyerek anlatır mısın ? Teşekkürler emeğine sağlık...

Edited by mehmetcan129
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...