امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
کدهای FunFile ها
نویسنده پیام
arnh آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 959
موضوع‌ها: 75
تاریخ عضویت: آبان ۱۳۸۴

تشکرها : 38
( 172 تشکر در 76 ارسال )
ارسال: #1
کدهای FunFile ها
سلام.
اگه بشه و کدهای که در فان فایل ها استفاده می شه رو اینجا قرار بدیم .
دیگه می تونیم هر روز چندتا فان فایل تمیز داشته باشیم.Biggrin
۱۹-اردیبهشت-۱۳۸۵, ۰۹:۵۰:۴۲
وب سایت ارسال‌ها
پاسخ
arnh آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 959
موضوع‌ها: 75
تاریخ عضویت: آبان ۱۳۸۴

تشکرها : 38
( 172 تشکر در 76 ارسال )
ارسال: #2
RE: کدهای FunFile ها
مثلا این سابروتین .
یک کلمه رو در عنوان پنجره جستجو می کنه و اگه موجود بود اونو می بنده .
کد:
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 هستش البته برای اونایی که نمی دونستن !!Biggrin
۱۹-اردیبهشت-۱۳۸۵, ۰۹:۵۵:۱۰
وب سایت ارسال‌ها
پاسخ
amirjan آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 1,105
موضوع‌ها: 24
تاریخ عضویت: تير ۱۳۸۳

تشکرها : 348
( 697 تشکر در 251 ارسال )
ارسال: #3
RE: کدهای FunFile ها
کپی رایت هم فراموش نشه ! Biggrin

سید امیر حسین حسنینی

Human knowledge belongs to the world ...
۱۹-اردیبهشت-۱۳۸۵, ۱۷:۲۰:۳۳
ارسال‌ها
پاسخ
arnh آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 959
موضوع‌ها: 75
تاریخ عضویت: آبان ۱۳۸۴

تشکرها : 38
( 172 تشکر در 76 ارسال )
ارسال: #4
RE: کدهای FunFile ها
amirjan نوشته است:کپی رایت هم فراموش نشه ! Biggrin
باشه چشم  :rolleyes:

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

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

با Alt + F4 هم ازش خارج شید .
۲۳-خرداد-۱۳۸۵, ۱۰:۴۰:۰۱
وب سایت ارسال‌ها
پاسخ
veyskarami غایب
مدیر بازنشسته
*****

ارسال‌ها: 861
موضوع‌ها: 82
تاریخ عضویت: مرداد ۱۳۸۴

تشکرها : 477
( 2479 تشکر در 611 ارسال )
ارسال: #5
RE: کدهای FunFile ها
ای ول. من میمیرم واسه 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 آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 959
موضوع‌ها: 75
تاریخ عضویت: آبان ۱۳۸۴

تشکرها : 38
( 172 تشکر در 76 ارسال )
ارسال: #6
RE:  کدهای FunFile ها
veyskarami نوشته است:ای ول. من میمیرم واسه Fun Code هرچی بخواین من قبلا نوشتم اگه خواستید بگید تا براتون بذارم
سلام . دوست عزیز خودم.
ورودت رو به محفل گرم فان فایل نویس ها خوش آمد می گم.
اگه لطف می کردی و توضیحی در مورد کد می دادی بد نبود Wink
۲۳-خرداد-۱۳۸۵, ۲۱:۰۰:۰۲
وب سایت ارسال‌ها
پاسخ
veyskarami غایب
مدیر بازنشسته
*****

ارسال‌ها: 861
موضوع‌ها: 82
تاریخ عضویت: مرداد ۱۳۸۴

تشکرها : 477
( 2479 تشکر در 611 ارسال )
ارسال: #7
RE: کدهای FunFile ها
به روی چشم
این کد همون wincloser امیرجان هستش که با دادن کپشن پنجره اون پنجره رو می بنده البته به زبان دلفی نوشتمش که تعداد خطوطش هم کمتره
چند تا دیگه هم دارم به زبان دلفی می نویسم که براتون بذارم تو سایت

۲۴-خرداد-۱۳۸۵, ۰۹:۱۲:۲۸
وب سایت ارسال‌ها
پاسخ
veyskarami غایب
مدیر بازنشسته
*****

ارسال‌ها: 861
موضوع‌ها: 82
تاریخ عضویت: مرداد ۱۳۸۴

تشکرها : 477
( 2479 تشکر در 611 ارسال )
ارسال: #8
RE: کدهای FunFile ها
کدها رو واست نوشتم گذاشتم تو سایت می تونی دانلود کنی
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 آفلاین
كاربر دو ستاره
**

ارسال‌ها: 200
موضوع‌ها: 38
تاریخ عضویت: اسفند ۱۳۸۴

تشکرها : 0
( 6 تشکر در 5 ارسال )
ارسال: #9
RE: کدهای FunFile ها
کد:
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 دیگهBiggrin
یکی دیگه هم نوشتم دیدم
هست حالا میزارم خواستید دانلود کنید
سیدی رامو بازو بسته میکنهvb

اول یاد بگیر بعد به دیگران یاد بده
(آخرین ویرایش در این ارسال: ۲۴-خرداد-۱۳۸۵, ۲۳:۲۴:۱۰، توسط sheveda.)
۲۴-خرداد-۱۳۸۵, ۲۲:۱۷:۵۱
ارسال‌ها
پاسخ
arnh آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 959
موضوع‌ها: 75
تاریخ عضویت: آبان ۱۳۸۴

تشکرها : 38
( 172 تشکر در 76 ارسال )
ارسال: #10
RE: کدهای FunFile ها
sheveda جان ممنون.
۰۱-تير-۱۳۸۵, ۰۷:۱۷:۰۵
وب سایت ارسال‌ها
پاسخ
sheveda آفلاین
كاربر دو ستاره
**

ارسال‌ها: 200
موضوع‌ها: 38
تاریخ عضویت: اسفند ۱۳۸۴

تشکرها : 0
( 6 تشکر در 5 ارسال )
ارسال: #11
RE: کدهای FunFile ها
خواهش میکنم قابل ایرانویجیا رو نداشت

اول یاد بگیر بعد به دیگران یاد بده
۰۲-تير-۱۳۸۵, ۱۳:۲۶:۴۳
ارسال‌ها
پاسخ


پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 4 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS