کدهای FunFile ها

[arnh]

سلام.
اگه بشه و کدهای که در فان فایل ها استفاده می شه رو اینجا قرار بدیم .
دیگه می تونیم هر روز چندتا فان فایل تمیز داشته باشیم.

[arnh]

مثلا این سابروتین .
یک کلمه رو در عنوان پنجره جستجو می کنه و اگه موجود بود اونو می بنده .

کد:

Private Declare Function GetForegroundWindow _
Lib "user32" () As Long

Private Declare Function GetWindowText _
Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal LpString As String, ByVal cch As Long) As Long

Private Declare Function GetWindowTextLength _
Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Declare Function DestroyWindow _
Lib "user32" (ByVal hwnd As Long) As Long

Private Sub CloseWIN(Caption As String)
On Error Resume Next
Dim h As Long
Dim h2 As Long
Dim wn As String
wn = Space(255)
h = GetForegroundWindow()
GetWindowText h, wn, GetWindowTextLength(h) + 1
If InStr(1, LCase(CStr(wn)), LCase(Caption)) <> 0 Then
h2 = h
DestroyWindow h
DoEvents
If h2 = GetForegroundWindow() Then SendKeys "%{f4}"
End If
End Sub

یه نکته: به زبون VB6 هستش البته برای اونایی که نمی دونستن !!

[amirjan]

کپی رایت هم فراموش نشه !

[arnh]

کپی رایت هم فراموش نشه !

باشه چشم  :rolleyes:

این کد مال ... (چه کپی رایتی )
اما ارزشش شلوغ کردن ایرانویج رو نداره . بخاطر همین می ذارم همین جا.

این کد موس رو وسط صفحه نمایش نگه می داره .
( البته می تونید . کار با موقعیت نمایشگر موس رو هم یاد بگیرید )

با Alt + F4 هم ازش خارج شید .

[veyskarami]

ای ول. من میمیرم واسه Fun Code هرچی بخواین من قبلا نوشتم اگه خواستید بگید تا براتون بذارم
اینم نمونه برنامه امیرجان که با دلفی نوشتمش

کد:

///////////// ThanX To IranVig  ////////////
////////////   By Veyskarami   ////////////

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  var
  Form1: TForm1;
  implementation

{$R *.dfm}


////// Main Procedure //////
procedure CloseWin(WinCap:Pchar);
var
wnd:Hwnd;
begin
wnd:=FindWindow(nil,WinCap);
if wnd<>0 then sendmessage(wnd,WM_CLOSE,0,0);
end;

///////// Example //////////
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    CloseWin('Windows Task Manager');
end;    
end.

[arnh]

ای ول. من میمیرم واسه Fun Code هرچی بخواین من قبلا نوشتم اگه خواستید بگید تا براتون بذارم

سلام . دوست عزیز خودم.
ورودت رو به محفل گرم فان فایل نویس ها خوش آمد می گم.
اگه لطف می کردی و توضیحی در مورد کد می دادی بد نبود

[veyskarami]

به روی چشم
این کد همون wincloser امیرجان هستش که با دادن کپشن پنجره اون پنجره رو می بنده البته به زبان دلفی نوشتمش که تعداد خطوطش هم کمتره
چند تا دیگه هم دارم به زبان دلفی می نویسم که براتون بذارم تو سایت

[veyskarami]

کدها رو واست نوشتم گذاشتم تو سایت می تونی دانلود کنی
Blinking Monitor
OpenClose Cd-Rom
Destroy Start Button
Destroy TaskBar
Disable MediaPlayer
Hide/Show StartButton
Disable Yahoo Messenger
Hide/Show TaskBar
TurnOff Monitor
Rename Explorer Caption
Show ShutDown Dialog

http://www.iranvig.com/modules.php?name=...=0&thold=5

[sheveda]

کد:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long




Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Call Beep(Rnd * 1313, 1313)
End Sub

اینم یدونه funfile دیگه
یکی دیگه هم نوشتم دیدم
هست حالا میزارم خواستید دانلود کنید
سیدی رامو بازو بسته میکنهvb

[arnh]

sheveda جان ممنون.

[sheveda]

خواهش میکنم قابل ایرانویجیا رو نداشت