-
Posts
886 -
Joined
-
Last visited
Content Type
Profiles
Forums
Calendar
Posts posted by korasoglu
-
-
Handy Folders 3.5.1 seriali lazım yardımcı olursanız sevinirim
-
hocam evet istediğim budur deneme _123 yerine aynı gözat açılınca illa deneme_123 yerine seçilen klasörü kopyalasa oda olabilirmi gerek yok dersen bu işimi görüyor ama artısı olursa daha hoş olur...
-
hocam ben şöyle yapmıştım
Global $ScriptDir = @ScriptDir
If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\"
Global $GREAD
Global $Form1 = GUICreate("Copy", 220, 100)
Global $Label1 = GUICtrlCreateLabel("Sürücüler", 10, 10, 200, 15)
Global $Combo1 = GUICtrlCreateCombo("", 10, 25, 200, 20,10485763)
Global $Button1 = GUICtrlCreateButton("Kopyala", 10, 55, 200, 24,1)
GUICtrlSetState(-1,256)
_Update_Drv()
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button1
Global $Button1 = GUICtrlCreateButton("BEKLEYİNİZ", 10, 55, 200, 24,1)
$GREAD = StringStripWS(GUICtrlRead($Combo1),3)
If StringLen($GREAD) <> 2 Then ContinueLoop
DirCreate($GREAD & "\deneme\Bluelife")
DirCreate($GREAD & "\deneme\korasoglu")
DirCreate($GREAD & "\deneme")
DirCreate($GREAD & "\autoit")
DirCreate($GREAD & "\autoit2")
FileCopy($ScriptDir & "usb\deneme\*.*", $GREAD & "deneme")
FileCopy($ScriptDir & "usb\*.*", $GREAD)
FileCopy($ScriptDir & "usb\deneme\Bluelife\*.*", $GREAD & "deneme\Bluelife\")
FileCopy($ScriptDir & "usb\deneme\korasoglu\*.*", $GREAD & "deneme\korasoglu\")
Global $Button1 = GUICtrlCreateButton("TAMAMLANDI", 10, 55, 200, 24,1)
EndSwitch
WEnd
Func _Update_Drv()
Local $LIST[2]
Local $R_DRV_LIST = DriveGetDrive("REMOVABLE")
If NOT @error Then
For $i = 1 to $R_DRV_LIST[0]
$R_DRV_LIST[$i] = StringLeft(StringUpper($R_DRV_LIST[$i]),2)
$LIST[0] &= $R_DRV_LIST[$i] & "|"
If $LIST[1] = "" Then $LIST[1] = $R_DRV_LIST[$i]
Next
If StringRight($LIST[0],1) = "|" Then $LIST[0] = StringTrimRight($LIST[0],1)
GUICtrlSetData($Combo1,"")
GUICtrlSetData($Combo1, $LIST[0], $LIST[1])
EndIf
EndFunc
fakat kopyalama başlayınca butonun yazısı ve bitince değişsin diye çalıştım fakat olmadı herhalde döngünün içine oturmadı bu kodda hata nerede
hocam birde gozat buttonu eklesek aynı görevi nasıl yapar -
hocam ceva için biraz geç kaldım özür dilerim.
son verdiğiniz örnek tam istediğim sadece deneme_123 klasörünü değil içinde ne varsa onu kopyalaması mümkünmü. -
host dosyasına bir bak engelleme olabilir system32 de
-
hocam kusura bakmayın bilmediğim için soruyorum kendinize göre düzenleme yap demişiniz yapamadım mesela belirdeğimiz klasörün içeriğini nasıl kopyalatırız şuda eklense browse eklense varsayılan uygulamanın olduğu klasör olsa sürücü seçilip klasör seçilse kopyalama yapılsa eğer sizi kullandığımı düşünüyorsaniz lütfen cevap vermeyin..
bu arada size özel mesaj gönderilemiyormu acaba olmuyor...
ilgili yerlere açıklama koyarsanız daha makbule geçer başka zaman sizi yormam -
hocam kopyalama yapmıyor Deneme_123 klasörünü oluşturdum içine text attım kopyalama yapmıyor
-
hocam bu isteğin tam tersi istediğimin bir klasörün içeriğini flasha nasıl kopyalatırız. ama diyelim ki ikitane usb takılı onlarıda görecek biz seçeceğiz kopyalama gerçekleşecek CombaBox olabilir mesela...
-
sevgili k.a tamam 512 mg remle windows7 çalıştırmışındır doğrudur fakat sen küçücük çocuğun sırtına kocaman yük vurmuşun çekbunu diyorsum xp ye terfi etsen bilgisayarın hızlandığını göreceksin yok illa windows7 olsun diyorsan rüzgarın bol olsun çünkü ihtiyacın olacak
-
arkadaşlar tammamen boş olarak verecemindirenlerede boş kullanmak isterse ayrı güncelleme vericem ilerleyen günlerde
-
sevgili 270598 bu kadar nazik birisi belli fakat ben yeniden paylaşıyorum kızma lafı biraz tuhap olmuş.
-
sevgili murat hotfile paylaşımı yapılmayacak beğenmen olumlu not vermen için teşekkür ederim
-
buyrun şunu bir deneyin
----------------------
hWnd = Application.GetWndHandle()
sTitle = "Korasoglu"
sMsg = "Selam"
sCheckText = "NONE"
Buttons = "OK"
Icon = "ICON_EXCLAMATION"
Icon_File = ""
Font_Size = "12"
Font_Bold = "YES"
nBG_Color = 7628121
nText_Color = 255785
Style = "TOOL"
HideTitleBar = "NO"
sWidth = 300
sHeight = 100
result = DLL.CallFunction("AutoPlay\\Docs\\xDialog_Message.dll", "Show_Msg", "\""..sTitle.."\",\""..sMsg.."\",\""..sCheckText.."\",\""..Buttons.."\",\""..Icon.."\",\""..Icon_File.."\",\""..Font_Size.."\",\""..Font_Bold.."\",\""..nBG_Color.."\",\""..nText_Color.."\",\""..Style.."\",\""..HideTitleBar.."\",\""..sWidth.."\",\""..sHeight.."\",\""..hWnd.."\"", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
nPos = String.Find(result, "|", 1, false)
if nPos == -1 then
Button = result
Label.SetText("Label1", "The "..Button.." button was clicked")
else
Button = String.Left(result, nPos-1)
Checked = String.Mid(result, nPos+1, 20)
if Checked == "CHECKED" then
sText = "The "..Button.." button was clicked and the check box was checked"
else
sText = "The "..Button.." button was clicked and the check box was not checked"
end
Label.SetText("Label1", sText)
end
------------
Docs klasörüne at
http://www.dosya.tc/upload/OiVbZO/xDialog_Message.rar.html -
Hocam bu yazışmalarda hiç bir şey anlamadım diyelimki benim bir sitem var ben sizin otokurda olduğu gibi nasıl güncelleme yaptırabiliriz.
sizde
guncelleme.exe
url.exe
blank.htm var
konuyu teferruatlı bir şekilde açma şansınız varmı.
Programların hepsinide size yakışır bir şekilde ams ile yapmışşınız -
Arkadaşım yaptığınız çalışmalarda birazda görselliğe önem verin o Giriş butonu hiç güzel durmuyor
-
olay tam anlaşılmıyor ama ne gerek standart bir en boy seçmek daha estetik olur
-
bunu dene ama direkMüziği açacağını zannetmiyorum ama exeyi açabilir
sen adresleri kendine göre düzenle not defterine aşağıdakileri yaz kaydet uzantısını reg yap tıkla
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\ocxfile\shell\ocxRestorator]
@="audio player ile aç"
[HKEY_CLASSES_ROOT\ocxfile\shell\ocxRestorator\command]
@="\"C:\MeselaKlasörü\\audio player ile aç.exe\" \"%1\"" -
hocam niçin size özel mesaj yazılmıyor.dünde bügünde denedim olmuyor
-
Şöyle yaparsan daha çok uzantı gösterebilirsin
deneme = Dialog.FileBrowse(true, "Simgeyi Seçiniz", _DesktopFolder, "PNG (*.png)|*.png|JPG (*.jpg)|*.jpg|JPEG (*.jpeg)|*.jpeg|GIF (*.gif)|*.gif|", "", "dat", false, false); -
Şunu bir dene
sayfa On Show
A1Veri = INIFile.GetValue("Autoplay\\Docs\\resim.ini", "resim", "1");
if A1Veri == "" then
else
Image.Load("Image1", "AutoPlay\\Docs\\resim1.png");
end
Butonun On Clik evresine
deneme = Dialog.FileBrowse(true, "Simge Seçin", _DesktopFolderCommon, "Programlar (*.PNG)|*.PNG|", "", "", false, true); -- dosya seçim penceresini aç
if deneme ~= "CANCEL" then
StatusDlg.Show()
File.Copy(deneme[1], _SourceFolder.."\\AutoPlay\\Docs\\resim1.png", false, true, false, false) -- dosyayi kopyala
sallama = String.SplitPath(deneme[1])
INIFile.SetValue("Autoplay\\Docs\\resim.ini", "resim", "1", sallama.Filename..".png")
StatusDlg.Hide()
Image.Load("Image1", "AutoPlay\\Docs\\resim1.png");
else
end
Örnek Proje
http://www.dosya.tc/indirr/iaHVBv/deneme.rar.html -
Hocam normal kurulumda serial yanlış girildimi o bölümü geçmiyor ama bunda o bölümü geçiyor kanaatimce bir
yanlışlık olsa ki size serial giremiyorum yardım demiştim ama şimdi o bölümü geçiyor tam emin olmamakla zannedersem serial
girmeyle alakalı olmaması gerek uzmanı değilim ama öyle gözüküyor.
Hocam bu güne kadar sizinle yazışmalarımızda genel olarak sorunumu çözdün varsın buda çözülmesin salla gitsin hayat size
hep iyi yüzünü gösterin.
Mehmetben sanda aynı dileklerim... -
Normal exeden kurdummu sorun yok fakat Autoitle yaptımmı aynı hatayı alıyorum.
bakabilirsiniz.
http://www.dosya.tc/indirr/UofgMX/deneme.rar.html -
sevgili blue_life serial girdi fakat tam yüklemeye başladığında şu hatayı aldım ne olabilir.
sevgili mehmet benede teşekkür ederim onuda deniyeceğim yazarım
[img]http://www.yukleresim.com/images/52998717867181106535.png[/img] -
Hocam Buraya kadar geldim serial giremiyince devam etmiyor.
Input var Fakat info Edit2-3 diye gösteriyor ben şöyle yaptım
Global $TEMP_FILE = _TempFile() ; Temp klasöründe olmayan dosya ismi belirliyoruz..
FileInstall("Library\ulead.exe", $TEMP_FILE) ; Kur dosyamızı autoit içine alıyoruz
Run($TEMP_FILE) ;Temp klasörüne çıkartılan dosyayı çalıştırıyoruz.
_PENCEREYI_BEKLE("Ulead PhotoImpact 12", "The InstallShield Wizard will install ",1,1)
BlockInput(1)
ControlCommand($PENCEREM,"", "Button1", "Check")
BlockInput(0)
_PENCEREYI_BEKLE("Ulead PhotoImpact 12", "Please read the following license agreement carefully.",1,1)
BlockInput(1)
ControlCommand($PENCEREM, "", "Button5", "Check")
ControlCommand($PENCEREM, "", "Button2", "Check")
BlockInput(0)
_PENCEREYI_BEKLE("Ulead PhotoImpact 12", "Enter your registration information.",1,1)
BlockInput(1)
---Burda takıldım resme bakarsanız doldurulacak alanlrı gösteriyor Control Settext de yaptım satır başını
dörttane input var nasıl doldurmalıyım. Inputların adını Info Edit olarak gösteriyor
ControlSend("Ulead PhotoImpact 12", "Enter your registration information.", "RichEdit20W2","Hp")
ControlSend("Ulead PhotoImpact 12", "Enter your registration information.", "RichEdit20W3","811A3")
ControlSend("Ulead PhotoImpact 12", "Enter your registration information.", "RichEdit20W4","0C000")
ControlSend("Ulead PhotoImpact 12", "Enter your registration information.", "RichEdit20W5","01675338")
ControlCommand($PENCEREM, "", "Button2", "Check")
BlockInput(0)
[img]http://www.yukleresim.com/images/10516631194975339450.png[/img]
yardımcı olursanız sevinirim...
Fileopendialog() Hata Alıyorum
in AutoIT
Posted