IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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ü f1 basinca mirc asagiya - f2 basinca mirc yukari (https://www.ircforumlari.net/mirc-scripting-sorunlari/999909-f1-basinca-mirc-asagiya-f2-basinca-mirc-yukari.html)

Coast 13 Ocak 2023 22:57
Cevap: f1 basinca mirc asagiya - f2 basinca mirc yukari
 
Mantik olarak mirci kucultebilirsin fakat kuculttukten sonra is mirc’den cikmis oluyor. bu durumda mirc fonksiyonunu kaybetmis oluyor. f2 ile mirci tekrar eski konumuna getirebilmek icin mirc in faal olmasi gerekir. ancak windows a kisayol eklemen gerekir bu durumda.

Vision 13 Ocak 2023 23:31
Cevap: f1 basinca mirc asagiya - f2 basinca mirc yukari
 
En son şekil şöyle olabilir;
Kod:
F1 {
  showmirc -t
}
bu üsttekini mIRC'e ekledin f1'e bastın saatin oraya attı mircin özellikler kısmından ayarları aşağıdaki resim gibi yaparsan kırmızı olarak çizdiklerimi orayada bir kısayol atarsan tekrar ana ekrana çıkartmış olursun

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

manikdepresif 13 Ocak 2023 23:54
Cevap: f1 basinca mirc asagiya - f2 basinca mirc yukari
 
abi olmadi boyle, asagiya indi ama yukari cikmadi.

Vision 14 Ocak 2023 00:17
Cevap: f1 basinca mirc asagiya - f2 basinca mirc yukari
 
Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042768171)
abi olmadi boyle, asagiya indi ama yukari cikmadi.
Kısayolu ayarladıysan resimdeki gibi olması gerekiyor Ctrl+Alt+P olarak ayarladım ben örnek veriyorum sen başka bir şey ayarla ona göre f1 ile bastıgında aşağı inecek ctrl+alt+p bastıgında ise tekrar ekrana geri dönecek.

manikdepresif 14 Ocak 2023 00:32
Cevap: f1 basinca mirc asagiya - f2 basinca mirc yukari
 
İlk olarak mirci kısayoldan başlatip calistirirsan, daha sonra kisayol tusu eklersen oluyor.Tesekkurler Vision.
Ben daha komplike seyler dusunmustum.

MasteR06 14 Ocak 2023 01:04
Cevap: f1 basinca mirc asagiya - f2 basinca mirc yukari
 
En mantıklısı Visionun dediği gibi yapmak. Diğer arkadaşta doğru söylüyor. Mirc aşağı inince iş mircden çıkıyor. Bilgisayardan işlem yaptırmak lazım.

win+m tuşu da mirci aşağı alır. Bat dosyası ile işlem yapmak istersen ya da benzeri bir şekilde bu da aklında bulunsun.

manikdepresif 14 Ocak 2023 01:14
Cevap: f1 basinca mirc asagiya - f2 basinca mirc yukari
 
Evet, vision'un dediginde mirc kisayol desktop(masaustunde) da olmasi lazim kisayol tusunun calisabilmesi icin, eger baska yerde ise kisayol calismiyor.O yuzden dah

Gurkan 19 Ocak 2023 09:28
Cevap: f1 basinca mirc asagiya - f2 basinca mirc yukari
 
Selam, aşağıdaki kodu dener misin?

Kod:
on *:KEY:F1: {
  /window -m Window
}

on *:KEY:F2: {
  /window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}

SuLh 23 Ocak 2023 05:00
Cevap: f1 basinca mirc asagiya - f2 basinca mirc yukari
 
key listener oluşturmak için dış kaynak kullanabiliriz, com object kullanarak powershell yardımıyla olabilir.
Örnek:
Kod:
alias F1 {
  showmirc -m
  runAgain
}
alias runAgain {
  var %şşş $+(com,$r(1,999)) | .comopen %şşş wscript.shell
  !.echo -q $com(%şşş,run,1,bstr,cmd.exe /k $&
    powershell $+($chr(36),continue = , $chr(36), true;) $+(while,$chr(40), $chr(36), continue,$chr(41)) $&
    $chr(123) $+  if ([console]::KeyAvailable) $+ $chr(123) $&
    $chr(36) $+ x = [System.Console]::ReadKey(); switch $+($chr(40),$chr(36),x.key,$chr(41)) $&
    $chr(123) F2 $chr(123) $&
    $chr(36) $+ continue = $chr(36) $+ false; $&
    $chr(36) $+ wsh = New-Object -ComObject WScript.Shell; $&
    $chr(36) $+ wsh.AppActivate('mirc basligi.'); $&
    $chr(36) $+ wsh.SendKeys('{ENTER}') $&
    $chr(125) $chr(125) $chr(125) $chr(125) $&
    ,uint,1,bool,1)
}

Ama bu sadece console'u okuduğu için, console aktif değilken çalışmayacaktır. Bunun yerine global key listener oluşturmak gerek. Biraz bakınca şöyle bir kaynağı referans aldım:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Açıkcası bunu mircte com objectle çalıştırmaya üşendim. Herhangi bi yere not defteri açıp içine bu kodları yapıştırıp uzantısını .ps1 olarak değiştirip çalıştırırsanız arka planda f2 tuşunu dinleyen bir script çalışacaktır.

Kod:
Add-Type -TypeDefinition '
using System;
using System.IO;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Windows.Forms;

namespace KeyLogger {
  public static class Program {
    private const int WH_KEYBOARD_LL = 13;
    private const int WM_KEYDOWN = 0x0100;

    private static HookProc hookProc = HookCallback;
    private static IntPtr hookId = IntPtr.Zero;
    private static int keyCode = 0;

    [DllImport("user32.dll")]
    private static extern IntPtr CallNextHookEx(IntPtr hhk, int nCode, IntPtr wParam, IntPtr lParam);

    [DllImport("user32.dll")]
    private static extern bool UnhookWindowsHookEx(IntPtr hhk);

    [DllImport("user32.dll")]
    private static extern IntPtr SetWindowsHookEx(int idHook, HookProc lpfn, IntPtr hMod, uint dwThreadId);

    [DllImport("kernel32.dll")]
    private static extern IntPtr GetModuleHandle(string lpModuleName);

    public static int WaitForKey() {
      hookId = SetHook(hookProc);
      Application.Run();
      UnhookWindowsHookEx(hookId);
      return keyCode;
    }

    private static IntPtr SetHook(HookProc hookProc) {
      IntPtr moduleHandle = GetModuleHandle(Process.GetCurrentProcess().MainModule.ModuleName);
      return SetWindowsHookEx(WH_KEYBOARD_LL, hookProc, moduleHandle, 0);
    }

    private delegate IntPtr HookProc(int nCode, IntPtr wParam, IntPtr lParam);

    private static IntPtr HookCallback(int nCode, IntPtr wParam, IntPtr lParam) {
      if (nCode >= 0 && wParam == (IntPtr)WM_KEYDOWN) {
        keyCode = Marshal.ReadInt32(lParam);
        Application.Exit();
      }
      return CallNextHookEx(hookId, nCode, wParam, lParam);
    }
  }
}
' -ReferencedAssemblies System.Windows.Forms
while ($true) {
    $key = [System.Windows.Forms.Keys][KeyLogger.Program]::WaitForKey()
    if ($key -eq "F2") {
                $wsh = New-Object -ComObject WScript.Shell
                $wsh.AppActivate("mirc basligi.")               
                $wsh.SendKeys("/showmirc -x")
                $wsh.SendKeys("{ENTER}")
    }
}
Not: mirc basligi yazan kısma mIRC title'ı giriniz.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 03:55.
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net