سلام.
اگه بشه و کدهای که در فان فایل ها استفاده می شه رو اینجا قرار بدیم .
دیگه می تونیم هر روز چندتا فان فایل تمیز داشته باشیم.
مثلا این سابروتین .
یک کلمه رو در عنوان پنجره جستجو می کنه و اگه موجود بود اونو می بنده .
کد:
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 نوشته است:کپی رایت هم فراموش نشه !
باشه چشم :rolleyes:
این کد مال ... (چه کپی رایتی )
اما ارزشش شلوغ کردن ایرانویج رو نداره . بخاطر همین می ذارم همین جا.
این کد موس رو وسط صفحه نمایش نگه می داره .
( البته می تونید . کار با موقعیت نمایشگر موس رو هم یاد بگیرید )
با Alt + F4 هم ازش خارج شید .
ای ول. من میمیرم واسه 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.
veyskarami نوشته است:ای ول. من میمیرم واسه Fun Code هرچی بخواین من قبلا نوشتم اگه خواستید بگید تا براتون بذارم
سلام . دوست عزیز خودم.
ورودت رو به محفل گرم فان فایل نویس ها خوش آمد می گم.
اگه لطف می کردی و توضیحی در مورد کد می دادی بد نبود
به روی چشم
این کد همون wincloser امیرجان هستش که با دادن کپشن پنجره اون پنجره رو می بنده البته به زبان دلفی نوشتمش که تعداد خطوطش هم کمتره
چند تا دیگه هم دارم به زبان دلفی می نویسم که براتون بذارم تو سایت
کدها رو واست نوشتم گذاشتم تو سایت می تونی دانلود کنی
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
کد:
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
خواهش میکنم قابل ایرانویجیا رو نداشت