Jump to content

AutoIT ile ekranı gizlemek

sk8er_boi

By sk8er_boi,
in AutoIT

 Share

Recommended Posts

the1night Newbie

the1night

Posted
Posted

arkadaşlar ben 1 program yaptın programlan ama ekranı gizlemeyi anlamadım kodları veriyorum nereye ekleniceğini söylerseniz sevinirim kolay gelsin :D

Run('add.exe')

WinWait("Setup - AusLogics Disk Defrag","Welcome to the AusLo")

If Not WinActive("Setup - AusLogics Disk Defrag","Welcome to the AusLo") Then WinActivate("Setup - AusLogics Disk Defrag","Welcome to the AusLo")

WinWaitActive("Setup - AusLogics Disk Defrag","Welcome to the AusLo")

Send("{ENTER}")

WinWait("Setup - AusLogics Disk Defrag","Please read the foll")

If Not WinActive("Setup - AusLogics Disk Defrag","Please read the foll") Then WinActivate("Setup - AusLogics Disk Defrag","Please read the foll")

WinWaitActive("Setup - AusLogics Disk Defrag","Please read the foll")

Send("{TAB}{UP}{ENTER}")

WinWait("Setup - AusLogics Disk Defrag","Select Destination L")

If Not WinActive("Setup - AusLogics Disk Defrag","Select Destination L") Then WinActivate("Setup - AusLogics Disk Defrag","Select Destination L")

WinWaitActive("Setup - AusLogics Disk Defrag","Select Destination L")

Send("{ENTER}")

WinWait("Setup - AusLogics Disk Defrag","Select Start Menu Fo")

If Not WinActive("Setup - AusLogics Disk Defrag","Select Start Menu Fo") Then WinActivate("Setup - AusLogics Disk Defrag","Select Start Menu Fo")

WinWaitActive("Setup - AusLogics Disk Defrag","Select Start Menu Fo")

Send("{ENTER}")

WinWait("Setup - AusLogics Disk Defrag","Select Additional Ta")

If Not WinActive("Setup - AusLogics Disk Defrag","Select Additional Ta") Then WinActivate("Setup - AusLogics Disk Defrag","Select Additional Ta")

WinWaitActive("Setup - AusLogics Disk Defrag","Select Additional Ta")

Send("{ENTER}")

WinWait("Setup - AusLogics Disk Defrag","Completing the AusLo")

If Not WinActive("Setup - AusLogics Disk Defrag","Completing the AusLo") Then WinActivate("Setup - AusLogics Disk Defrag","Completing the AusLo")

WinWaitActive("Setup - AusLogics Disk Defrag","Completing the AusLo")

Send("{SPACE}{ENTER}")

#endregion --- ScriptWriter generated code End ---

Link to comment
Share on other sites
  • 2 ay sonra...
  • Replies 95
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

HaXeM Newbie

HaXeM

Posted
Posted

#region --- ScriptWriter generated code Start ---

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

Run('nero.exe')

WinWait("Kur Dilini Seçiniz","Lütfen kurulum sıras")

If Not WinActive("Kur Dilini Seçiniz","Lütfen kurulum sıras") Then WinActivate("Kur Dilini Seçiniz","Lütfen kurulum sıras")

WinWaitActive("Kur Dilini Seçiniz","Lütfen kurulum sıras")

Send("{ENTER}")

WinWait("Nero 8 Micro - Kur","Nero 8 Micro Kurulum")

If Not WinActive("Nero 8 Micro - Kur","Nero 8 Micro Kurulum") Then WinActivate("Nero 8 Micro - Kur","Nero 8 Micro Kurulum")

WinWaitActive("Nero 8 Micro - Kur","Nero 8 Micro Kurulum")

Send("{ENTER}")

WinWait("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman")

If Not WinActive("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman") Then WinActivate("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman")

WinWaitActive("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman")

Send("{TAB}{TAB}{CTRLDOWN}v{CTRLUP}{TAB}{TAB}{ENTER}{TAB}{UP}{ENTER}{ENTER}{ENTER

}{ENTER}{SPACE}{ENTER}{ENTER}")

WinWait("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih")

If Not WinActive("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih") Then WinActivate("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih")

WinWaitActive("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih")

Send("{ENTER}")

#endregion --- ScriptWriter generated code End ---

arkadaşlar görüntüyü nasıl gizlerin yardımcı olurmusunuz

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted (edited)

@HaXeM

Winwait satırının altına winsettrans ekliyorsun... Tabi farkı yöntemlerde mevcut ama şimdilik bu şekilde alıştırmalar yap.

Kolay gelsin....

#region --- ScriptWriter generated code Start ---
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('nero.exe')
WinWait("Kur Dilini Seçiniz","Lütfen kurulum sıras")
WinSetTrans("Kur Dilini Seçiniz","Lütfen kurulum sıras",1)
If Not WinActive("Kur Dilini Seçiniz","Lütfen kurulum sıras") Then WinActivate("Kur Dilini Seçiniz","Lütfen kurulum sıras")
WinWaitActive("Kur Dilini Seçiniz","Lütfen kurulum sıras")
Send("{ENTER}")
WinWait("Nero 8 Micro - Kur","Nero 8 Micro Kurulum")
WinSetTrans("Nero 8 Micro - Kur","Nero 8 Micro Kurulum",1)
If Not WinActive("Nero 8 Micro - Kur","Nero 8 Micro Kurulum") Then WinActivate("Nero 8 Micro - Kur","Nero 8 Micro Kurulum")
WinWaitActive("Nero 8 Micro - Kur","Nero 8 Micro Kurulum")
Send("{ENTER}")
WinWait("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman")
WinSetTrans("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman",1)
If Not WinActive("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman") Then WinActivate("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman")
WinWaitActive("Nero 8 Micro - Kur"," ©2007 Klaas Nekeman")
Send("{TAB}{TAB}{CTRLDOWN}v{CTRLUP}{TAB}{TAB}{ENTER}" & _
"{TAB}{UP}{ENTER}{ENTER}{ENTER}{ENTER}{SPACE}{ENTER}{ENTER}")
WinWait("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih")
WinSetTrans("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih",1)
If Not WinActive("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih") Then WinActivate("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih")
WinWaitActive("Nero 8 Micro - Kur","Nero 8 Micro Kur Sih")
Send("{ENTER}")
#endregion --- ScriptWriter generated code End ---[/CODE]

Edited by blue_life
Link to comment
Share on other sites
  • 2 ay sonra...
gangster94 Newbie

gangster94

Posted
Posted

arkadaşlar ilk önce teşekkürler böyle bir konu açtığınız için ben bir ücretsiz virüs programını record ettim ama ekranı gizleyemedim

kodum şöyle

#region --- ScriptWriter generated code Start ---

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

Run('mssefullinstall-x86fre-tr-tr-xp.exe')

WinWait("Microsoft Security Essentials","Microsoft Security E")

If Not WinActive("Microsoft Security Essentials","Microsoft Security E") Then WinActivate("Microsoft Security Essentials","Microsoft Security E")

WinWaitActive("Microsoft Security Essentials","Microsoft Security E")

Send("{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}{ENTER}{ENTER}{ENTER}{TAB}{TAB}{TAB}{TAB}")

MouseMove(182,234)

MouseDown("left")

MouseUp("left")

Send("{TAB}{ENTER}")

#endregion --- ScriptWriter generated code End ---

bunu ekranı gizlemesi için kod ekleyebilirmisiniz bende böylece kodların nereye eklendiğini gözlemleyip konuyu daha iyi kavrayabilirim belki iyi günler

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted 

#region --- ScriptWriter generated code Start ---

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

Run('mssefullinstall-x86fre-tr-tr-xp.exe')

WinWait("Microsoft Security Essentials","Microsoft Security E")

WinMove("Microsoft Security Essentials","Microsoft Security E", @DesktopWidth + 10, @DesktopHeight + 10)

If Not WinActive("Microsoft Security Essentials","Microsoft Security E") Then WinActivate("Microsoft Security Essentials","Microsoft Security E")

WinWaitActive("Microsoft Security Essentials","Microsoft Security E")

Send("{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}{ENTER}{ENTER}{ENTER}{TAB}{TAB}{TAB}{TAB}")

Send("{TAB}{ENTER}")

#endregion --- ScriptWriter generated code End ---[/CODE]

Teorik olarak daha önce dediğim gibi WinWait altına WinSetTrans, veyahut WinMove kullanabilirsin...

Link to comment
Share on other sites
x_files_x Rookie

x_files_x

Posted
Posted

Hocam bende bişi sorcamda dün Blulife hocamın autoit ile exploreri resetlemek icin bi kodu vermişti ona baktım.ama fazla karısık geldi yani anlıyamadım ben şöyle bişi yapmaya karar verdim çünkü tam bilmiyorum autoit yeniyim.

KOD;

Opt("TrayIconHide", 1)

ProcessClose("explorer.exe")

Run(@WindowsDir & "\explorer.exe")

WinWait("Belgelerim")

WinWaitActive("Belgelerim")

winclose("Belgelerim")

ama kodda yalnış şeyler var explorer kapatılıyor kapatılırke diger ekranlarda gidiyor..birde görünmez yapamadım cıkan belglerim kalsorunu..belgelerim hic cıkmasa olmaz mı.diger herseyimde gidiyor..bu yontemle nasıl yaparım yardımcı olurmusunuz

Link to comment
Share on other sites
Mükemmel  Newbie

Mükemmel 

Posted
Posted (edited)

İstediğin kod şu şekilde:

Opt("TrayIconHide", 1)

Run(@WindowsDir & "\explorer.exe","", 1)

WinWait("Belgelerim","", 1)

WinWaitActive("Belgelerim","", 1)

Galiba bazı pencereler görünmez yapılmıyor.

Edited by Mükemmel 
Link to comment
Share on other sites
  • 3 hafta sonra ...
  • 2 ay sonra...
wiyan Newbie

wiyan

Posted
Posted

üstadlar corel knockout2 programı için yaptığım kodlarda bir yanlışlık mı var

kurulum ekranı gizlenmiyor.

sadece send komutu ile yapılan işlemler gözükmüyor

yardımcı olursanız sevinirim..

Run('kSetup.exe')

WinWait("Welcome","Welcome to the Knock")

WinSetTrans("Welcome","Welcome to the Knock",1)

if Not WinActive("Welcome","Welcome to the Knock") then WinActivate("Welcome","Welcome to the Knock")

_WinWaitActivate("Welcome","Welcome to the Knock")

Send("{TAB}{TAB}{ENTER}")

WinWait("Software License Agreement","Please read the foll")

WinSetTrans("Software License Agreement","Please read the foll",1)

if Not WinActive("Software License Agreement","Please read the foll") then WinActivate("Software License Agreement","Please read the foll")

_WinWaitActivate("Software License Agreement","Please read the foll")

Send("{TAB}{TAB}{ENTER}")

WinWait("Serial Number Page","Please enter your na")

WinSetTrans("Serial Number Page","Please enter your na",1)

if Not WinActive("Serial Number Page","Please enter your na") then WinActivate("Serial Number Page","Please enter your na")

_WinWaitActivate("Serial Number Page","Please enter your na")

Send("{TAB}{SHIFTDOWN}{TAB}{SHIFTUP}reklam{TAB}ko20crd-0019351-rku{TAB}{TAB}{ENTER}")

WinWait("Setup Type","Click the type of Se")

WinSetTrans("Setup Type","Click the type of Se",1)

if Not WinActive("Setup Type","Click the type of Se") then WinActivate("Setup Type","Click the type of Se")

_WinWaitActivate("Setup Type","Click the type of Se")

Send("{TAB}{TAB}{ENTER}")

WinWait("KnockOut 2 Program Files Destination","Please select the de")

WinSetTrans("KnockOut 2 Program Files Destination","Please select the de",1)

if Not WinActive("KnockOut 2 Program Files Destination","Please select the de") then WinActivate("KnockOut 2 Program Files Destination","Please select the de")

_WinWaitActivate("KnockOut 2 Program Files Destination","Please select the de")

Send("{TAB}{TAB}{ENTER}")

WinWait("Choose Folder","Please choose the in")

WinSetTrans("Choose Folder","Please choose the in",1)

if Not WinActive("Choose Folder","Please choose the in") then WinActivate("Choose Folder","Please choose the in")

_WinWaitActivate("Choose Folder","Please choose the in")

Send("{TAB}{DOWN}{DOWN}{ENTER}{DOWN}{ENTER}{DOWN}{DOWN}{UP}{DOWN}{DOWN}{DOWN}{DOWN

}{ENTER}{SHIFTDOWN}{TAB}{SHIFTUP}{RIGHT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT

}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{L

EFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{

RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGH

T}{LEFT}{LEFT}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{CTRLDOWN}z{CTRLUP}{CTRLDOWN}a{CTRLUP

}{HOME}{SHIFTDOWN}{END}{SHIFTUP}{CTRLDOWN}c{CTRLUP}{TAB}{TAB}{TAB}{ENTER}")

WinWait("KnockOut 2 Program Files Destination","Please select the de")

WinSetTrans("KnockOut 2 Program Files Destination","Please select the de",1)

if Not WinActive("KnockOut 2 Program Files Destination","Please select the de") then WinActivate("KnockOut 2 Program Files Destination","Please select the de")

_WinWaitActivate("KnockOut 2 Program Files Destination","Please select the de")

Send("{TAB}{TAB}{ENTER}")

WinWait("Select Plugins Folder","Please select the Pl")

WinSetTrans("Select Plugins Folder","Please select the Pl",1)

if Not WinActive("Select Plugins Folder","Please select the Pl") then WinActivate("Select Plugins Folder","Please select the Pl")

_WinWaitActivate("Select Plugins Folder","Please select the Pl")

Send("{TAB}{TAB}{ENTER}")

WinWait("Choose Folder","Please choose the in")

WinSetTrans("Choose Folder","Please choose the in",1)

if Not WinActive("Choose Folder","Please choose the in") then WinActivate("Choose Folder","Please choose the in")

_WinWaitActivate("Choose Folder","Please choose the in")

Send("{CTRLDOWN}v{CTRLUP}{TAB}{TAB}{TAB}{ENTER}")

WinWait("Select Plugins Folder","Please select the Pl")

WinSetTrans("Select Plugins Folder","Please select the Pl",1)

if Not WinActive("Select Plugins Folder","Please select the Pl") then WinActivate("Select Plugins Folder","Please select the Pl")

_WinWaitActivate("Select Plugins Folder","Please select the Pl")

Send("{TAB}{TAB}{ENTER}")

WinWait("Start Copying Files","Setup has enough inf")

WinSetTrans("Start Copying Files","Setup has enough inf",1)

if Not WinActive("Start Copying Files","Setup has enough inf") then WinActivate("Start Copying Files","Setup has enough inf")

_WinWaitActivate("Start Copying Files","Setup has enough inf")

Send("{ENTER}")

WinWait(" PRODUCT REGISTRATION"," PRODUCT REGISTRATIO")

WinSetTrans(" PRODUCT REGISTRATION"," PRODUCT REGISTRATIO",1)

if Not WinActive(" PRODUCT REGISTRATION"," PRODUCT REGISTRATIO") then WinActivate(" PRODUCT REGISTRATION"," PRODUCT REGISTRATIO")

_WinWaitActivate(" PRODUCT REGISTRATION"," PRODUCT REGISTRATIO")

Send("{TAB}{ENTER}")

WinWait("Cancel Registration?","Are you sure you wan")

WinSetTrans("Cancel Registration?","Are you sure you wan",1)

if Not WinActive("Cancel Registration?","Are you sure you wan") then WinActivate("Cancel Registration?","Are you sure you wan")

_WinWaitActivate("Cancel Registration?","Are you sure you wan")

Send("{TAB}{ENTER}")

WinWait("Setup Complete","The installation of ")

WinSetTrans("Setup Complete","The installation of ",1)

if Not WinActive("Setup Complete","The installation of ") then WinActivate("Setup Complete","The installation of ")

_WinWaitActivate("Setup Complete","The installation of ")

Send("{TAB}{TAB}{ENTER}")

#endregion --- Internal functions Au3Recorder End ---

Func _WinWaitActivate($title,$text,$timeout=0)

    WinWait($title,$text,$timeout)

    If Not WinActive($title,$text) Then WinActivate($title,$text)

    WinWaitActive($title,$text,$timeout)

EndFunc

#endregion --- Internal functions Au3Recorder End ---[/CODE]

Link to comment
Share on other sites
  • 2 hafta sonra ...
arpaco Newbie

arpaco

Posted
Posted

Bir sorum var... Autoit ile kurulum oluşturdum ekranı gizlemeyide yaptım ancak ilk iki pencere gizlenmiyor sonraki pencereler gizli olarak devam ediyor. Sebebi ne olabilir.

Kodlar burada yardımcı olabilirseniz sevinirm.

Run('ccsetup233.exe')

WinWait("Installer Language","Please select a lang",)

WinSetTrans("Installer Language","Please select a lang",1)

If Not WinActive("Installer Language","Please select a lang") Then WinActivate("Installer Language","Please select a lang")

WinWaitActive("Installer Language","Please select a lang")

Send("{TAB}{SPACE}")

WinWait("CCleaner v2.33 Kurulumu","CCleaner v2.33 Kurul",)

WinSetTrans("CCleaner v2.33 Kurulumu","CCleaner v2.33 Kurul",1)

If Not WinActive("CCleaner v2.33 Kurulumu","CCleaner v2.33 Kurul") Then WinActivate("CCleaner v2.33 Kurulumu","CCleaner v2.33 Kurul")

WinWaitActive("CCleaner v2.33 Kurulumu","CCleaner v2.33 Kurul")

Send("{SPACE}")

WinWait("CCleaner v2.33 Kurulumu ","Lütfen CCleaner v2.3",)

WinSetTrans("CCleaner v2.33 Kurulumu ","Lütfen CCleaner v2.3",1)

If Not WinActive("CCleaner v2.33 Kurulumu ","Lütfen CCleaner v2.3") Then WinActivate("CCleaner v2.33 Kurulumu ","Lütfen CCleaner v2.3")

WinWaitActive("CCleaner v2.33 Kurulumu ","Lütfen CCleaner v2.3")

Send("{TAB}{RIGHT}{SPACE}")

WinWait("CCleaner v2.33 Kurulumu ","CCleaner v2.33 progr",)

WinSetTrans("CCleaner v2.33 Kurulumu ","CCleaner v2.33 progr",1)

If Not WinActive("CCleaner v2.33 Kurulumu ","CCleaner v2.33 progr") Then WinActivate("CCleaner v2.33 Kurulumu ","CCleaner v2.33 progr")

WinWaitActive("CCleaner v2.33 Kurulumu ","CCleaner v2.33 progr")

Send("{TAB}{TAB}{TAB}{SPACE}")

WinWait("CCleaner v2.33 Kurulumu","Herhangi bir seçenek",)

WinSetTrans("CCleaner v2.33 Kurulumu","Herhangi bir seçenek",1)

If Not WinActive("CCleaner v2.33 Kurulumu","Herhangi bir seçenek") Then WinActivate("CCleaner v2.33 Kurulumu","Herhangi bir seçenek")

WinWaitActive("CCleaner v2.33 Kurulumu","Herhangi bir seçenek")

Send("{TAB}{TAB}{TAB}{TAB}{SPACE}{TAB}{SPACE}{TAB}{TAB}{SPACE}")

WinWait("CCleaner v2.33 Kurulumu ","CCleaner v2.33 Kurul",)

WinSetTrans("CCleaner v2.33 Kurulumu ","CCleaner v2.33 Kurul",1)

If Not WinActive("CCleaner v2.33 Kurulumu ","CCleaner v2.33 Kurul") Then WinActivate("CCleaner v2.33 Kurulumu ","CCleaner v2.33 Kurul")

WinWaitActive("CCleaner v2.33 Kurulumu ","CCleaner v2.33 Kurul")

Send("{SPACE}{TAB}{SPACE}")

#endregion --- ScriptWriter generated code End ---[/CODE]

Link to comment
Share on other sites
MostWanted Newbie

MostWanted

Posted
Posted (edited) 

#NoTrayIcon

#Region;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_icon=TNCTR.ico

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_Res_Description=CCleaner Katılımsız

#AutoIt3Wrapper_Res_Fileversion=2.28

#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****

#Region --- CodeWizard generated code Start ---

;SpashImage features: Title=No, Width=381, Height=175, Always On Top

FileInstall("ali.bmp", @TempDir &"\ali.bmp")

#EndRegion --- CodeWizard generated code End ---

FileInstall("CCleaner.exe", @TempDir &"\CCleaner.exe")

FileInstall("lang-1055.dll", @TempDir &"\lang-1055.dll")

FileInstall("ccsetup228.exe", @TempDir &"\ccsetup228.exe")

Run(@TempDir &"\ccsetup228.exe","", @SW_HIDE )

WinSetTrans ( "Installer Language", "", 0 )

WinWait( "Installer Language")

WinSetTrans ( "Installer Language", "", 0 )

WinActivate ( "Installer Language")

ControlClick("Installer Language", "", "[CLASS:Button; ID:1]")

WinSetTrans ( "Installer Language", "", 0 )

WinWait ( "CCleaner v2.28 Kurulumu")

WinSetTrans ( "CCleaner v2.28 Kurulumu", "", 0 )

WinActivate ( "CCleaner v2.28 Kurulumu")

ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1]", "left", 3)

WinActivate ( "CCleaner v2.28 Kurulumu")

$talha2=ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1206]")

WinActivate ( "CCleaner v2.28 Kurulumu")

$talha=ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1200]")

WinActivate ( "CCleaner v2.28 Kurulumu")

ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1]")

Sleep(5000)

WinActivate ( "CCleaner v2.28 Kurulumu")

$talha3=ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1203]")

WinActivate ( "CCleaner v2.28 Kurulumu")

ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1]")

if $talha3 = 0 Then

Sleep(10000)

WinActivate ( "CCleaner v2.28 Kurulumu")

$talha4=ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1203]")

WinActivate ( "CCleaner v2.28 Kurulumu")

ControlClick("CCleaner v2.28 Kurulumu", "", "[CLASS:Button; ID:1]")

    if $talha4 = 0 Then

        MsgBox(64, "Hata!", "Hata oluştu tekrar deneyin!")

        Exit

    EndIf

EndIf

FileCreateShortcut(@ProgramFilesDir & "\CCleaner\CCleaner.exe", @DesktopDir & "\CCleaner TiEnSi [TnC] Edition.INK")[/CODE]

Kendim bi arkadaşım için ccleaneri katılımsız yapmıştım.Buyur sende dene..

Edited by talha_252
Link to comment
Share on other sites
  • 3 ay sonra...
  • Editor
köylü Mentor

köylü

Posted
  • Editor
Posted

arkadaslar asagıdaki kodlarla kurulum ekranını gizlemek istiyorum yapamadım yardımcı olan arkadaslara simdiden tesekkürler

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

Run('G:\windowslive.exe')

WinWait("A-Patch","Messenger'a Yamayi U")

If Not WinActive("A-Patch","Messenger'a Yamayi U") Then WinActivate("A-Patch","Messenger'a Yamayi U")

WinWaitActive("A-Patch","Messenger'a Yamayi U")

Send("{ENTER}")

WinWait("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri")

If Not WinActive("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri") Then WinActivate("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri")

WinWaitActive("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri")

Send("{ENTER}")

WinWait("Dikkat","Yamayi modifiye edil")

If Not WinActive("Dikkat","Yamayi modifiye edil") Then WinActivate("Dikkat","Yamayi modifiye edil")

WinWaitActive("Dikkat","Yamayi modifiye edil")

Send("{ENTER}")

WinWait("A-Patch","Ödeme Bilgi Menüleri")

If Not WinActive("A-Patch","Ödeme Bilgi Menüleri") Then WinActivate("A-Patch","Ödeme Bilgi Menüleri")

WinWaitActive("A-Patch","Ödeme Bilgi Menüleri")

Send("{ENTER}{ENTER}7{ENTER}{ENTER}")

MouseMove(392,357)

MouseDown("left")

MouseUp("left")

Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@tiflisli

WinMove ile ekranda görünmeyecek bir yere taşıyabilirsin...

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)

Run('G:\windowslive.exe')
WinWait("A-Patch","Messenger'a Yamayi U")
If Not WinActive("A-Patch","Messenger'a Yamayi U") Then WinActivate("A-Patch","Messenger'a Yamayi U")
WinWaitActive("A-Patch","Messenger'a Yamayi U")
WinMove("A-Patch","Messenger'a Yamayi U",@DesktopWidth,@DesktopHeight)
Send("{ENTER}")
WinWait("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri")
If Not WinActive("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri") Then WinActivate("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri")
WinWaitActive("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri")
WinMove("A-Patch [Windows Live Messenger 15.4.3502.0922]","Ödeme Bilgi Menüleri",@DesktopWidth,@DesktopHeight)
Send("{ENTER}")
WinWait("Dikkat","Yamayi modifiye edil")
If Not WinActive("Dikkat","Yamayi modifiye edil") Then WinActivate("Dikkat","Yamayi modifiye edil")
WinWaitActive("Dikkat","Yamayi modifiye edil")
WinMove("Dikkat","Yamayi modifiye edil",@DesktopWidth,@DesktopHeight)
Send("{ENTER}")
WinWait("A-Patch","Ödeme Bilgi Menüleri")
If Not WinActive("A-Patch","Ödeme Bilgi Menüleri") Then WinActivate("A-Patch","Ödeme Bilgi Menüleri")
WinWaitActive("A-Patch","Ödeme Bilgi Menüleri")
WinMove("A-Patch","Ödeme Bilgi Menüleri",@DesktopWidth,@DesktopHeight)
Send("{ENTER}{ENTER}7{ENTER}{ENTER}")

Link to comment
Share on other sites
  • Editor
köylü Mentor

köylü

Posted
  • Editor
Posted (edited)

@blue_life

tesekkür ediyorum alaka gösterdigin için kurulum ekranı yine görünüyor ama öncekinden hızlı geciyor benim istedigim hiç görünmeyecek bide program acık kalıyo programı kapatıp winmdows live yi baslatacak pro kapandımı windows live otomatik olarak baslıyo zaten benim verdigim koddaki en son mouse degerleri calısmıyo verdigim hali ile calısıyo windows live otomatik calısıyo ama ben görünmesin istiyorum tesekkürr eder basarılar dilerim

şu komutlarında calısması lazım bunlar calısmayınca program sonlanmıyor

MouseMove(392,357)

MouseDown("left")

MouseUp("left")

Edited by tiflisli
Link to comment
Share on other sites
blue_life Newbie

blue_life

Posted
Posted

@tiflisli

Programın ekranı tam olarak gizlenebilir (gizlenmeyebilir).

Ekran tam olarak gizlenirse normal send komutları işe yaramayacaktır.

Normal mouse komutları ise her zaman bu konularda sorunludur.

Control komutları daha başarılı!

Bu arada, anladığım kadarıyla messenger için yama yapan bir programı katılımsız yapmaya çalışıyorsun.

Bence ilgili yama yapan programın hangi dosyaları değiştirdiğini tespit edip, o dosyaları sistemden alıp kullanman daha mantıklı ve güzel bir yol!

Link to comment
Share on other sites
  • Editor
köylü Mentor

köylü

Posted
  • Editor
Posted

@blue_life

evet win7 için windows live temel parcaların tümünü katılımsız yaptım buda coklu yaması ve reklamları kaldırmak için hangi dosyaları değistirdigini bulamadım sadece reg kayıdı ekliyor multipleinstances dword deger 1 ben reg kaydını katılımsız kuruluma ekliyorum olmuyor girdigim degerler kaydoluyor ama coklu olmuyor yamayı illaki bu path la yapacam diye bi şart yok baska türlü de olabilir en son autoitle denedim oluyo ama ekranda gözüküyo baska yöntem varsa yardımını bekliyorum tesekkürler

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
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...