IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü Bot üzerinde Rar dosyasını Dosya.tc yükletip link alma (https://www.ircforumlari.net/mirc-scripting-sorunlari/937357-bot-uzerinde-rar-dosyasini-dosyatc-yukletip-link-alma.html)

HsN 30 Eylül 2021 23:37

Bot üzerinde Rar dosyasını Dosya.tc yükletip link alma
 
Merhaba öncelikle herkes iyi forumlar.

Help kanalı için yapmış olduğumuz bot var. Uzak bilgisayarda aktif olduğu için bazen yedeğini almak istiyorum.
Çalışma şekli kanalda !yedekle yazdığım zaman Mirc klasörünü Bi üst dizine BotYedekler klasörü içerisine rar yapıyor. ve sonrasında FileUploader.exe programı yardımıyla Dosya.tc sitesine yükleyim kanala linkini yansıtıyor.

Kod:

Alias Yedekleme {
  write -c FileUploader.log
  var %mircdir = $+($gettok($mircdir,1,92),$chr(92),BotYedekler)
  if !$isdir(%mircdir) {
    mkdir $+($gettok($mircdir,1,92),$chr(92),BotYedekler)
  }

  .run C:\PROGRA~1\WinRAR\WinRAR.exe a -r -M1 -MD4096 -ibck -Y -O+ -ac -ep1  $+(",%mircdir,\HesBot.rar") -ag_DD-MM-YYYY $micrdir
  %Yuklenecek = $findfile(D:\BotYedekler,*.rar,1)
  .run fileuploader.exe %Yuklenecek
  .timerUpload 1 10 sendkeys {enter}
  .msg $1 $2 Lütfen biraz bekleyin. Dosya linkini sizinle paylaşacağım.
  .timerUploadClose 1 35 SendKeys "%{F4}"
  .timerUploadLink 1 45 uploadLink $1
}

alias sendkeys var %a = $ticks | .comopen %a WScript.Shell | if !$comerr { .comclose %a $com(%a,SendKeys,3,bstr,$1-) }



on *:Text:!yedekle:#:{
  Yedekleme $chan $nick
}
alias uploadLink {
  msg $1 0,2Yedeklenen dosya Linki : $gettok($read(FileUploader.log,1),3,124)
}

FileUploader isminde dosya yükleme programı aracılığıyla bunu yapabiliyorum. Fakat run exe yaptığımda program bazen minimize olduğundan sendkey komutlarım işlemiyor. Bunun için yardım edebilirseniz çok sevinirim.


Ekran görünümü:
Kod:

[23:38:16] <Admin> !yedekle
[23:38:16] <Bot> Admin Lütfen biraz bekleyin. Dosya linkini sizinle paylaşacağım.
[23:39:02] <Bot> 0,2Yedeklenen dosya Linki : https://s5.dosya.tc/server5/zoimar/Bot_30-09-2021.rar.html


Aybarss 05 Mayıs 2025 16:44

Cevap: Bot üzerinde Rar dosyasını Dosya.tc yükletip link alma
 
Minimize olan pencereyi ön plana getirip SendKeys komutunu sonra gönder
alias sendkeys var %a = $ticks | .comopen %a WScript.Shell | if !$comerr { .comclose %a $com(%a,SendKeys,3,bstr,$1-) }

alias aktifpencere {
var %w = FileUploader ; Pencere başlığı bu değilse düzelt!
.comopen win WScript.Shell
if !$comerr {
.comclose win $com(win,AppActivate,1,bstr,%w)
}
}

kullanımı: .run fileuploader.exe %Yuklenecek
.timerFocus 1 8 aktifpencere
.timerUpload 1 10 sendkeys {enter}

XcLusive 05 Mayıs 2025 21:24

Cevap: Bot üzerinde Rar dosyasını Dosya.tc yükletip link alma
 
ayrıca bilgisayarda winrar yüklü olması lazım.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 00:32.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk