من که برای همه توضیح دادم شما کدومو میگید ؟نقل قول:
Printable View
من که برای همه توضیح دادم شما کدومو میگید ؟نقل قول:
اين يه نمونه سورس یک بچه ویروسنقل قول:
استفاده درست بکنید نه برای خرابکاری
خوب حالا كار اين ويروسه چيه ؟
سونامی عزیز اگه اجازه بدی من هم میخوام کمکت کنم که تنها نباشی :11:
موافقی ؟
خوشحال میشم دوست عزیز منو کمک کنینقل قول:
شما چندتا فعلا بزار تا تاپیک پایین نره منم به زودی میزارم
فقط یک command button به فرم اظافه کنید
[HTML]Private Sub Command1_Click()
Dim i, x, y
Me.FontSize = 26
Me.ForeColor = 0: x = CurrentX: y = CurrentY
For i = 0 To 444
Print "Coded By : Faraz Azadi" ' Here goes your text.
x = x + 1: y = y + 1: CurrentX = x: CurrentY = y
Next i
Me.ForeColor = 255
Print "Coded By : Faraz Azadi"
End Sub
[/HTML]
موفق باشید
فقط این کد ها رو به قسمت جنرال فرمتون اظافه کنید
[HTML]Sub Form_Paint()
Dim I As Integer, X As Integer, Y As Integer
Dim C As String
Cls
Me.FontSize = 12
For I = 0 To 91
X = CurrentX
Y = CurrentY
C = Chr(I)
CurrentX = X
CurrentY = Y
ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
Print "Coded By : Faraz Azadi"
Next
End Sub
[/HTML]
موفق و سر بلند باشید:11:
با این کد میتونید عکس picturebox1 رو به صورت برعکس در picturebox2 نمایش بدیم
فقط برای این کار کافی یک Commandbutton و دو picturebox به فرم اظافه کنید و بعد برای pixturebox1 یک عکس انتخاب کنید .
[HTML]Private Sub Command1_Click()
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, _
Picture1.Height, Picture1.Width, 0, -Picture1.Width, _
Picture1.Height, vbSrcCopy
End Sub
[/HTML]
موفق و سر بلند باشید [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
خسته نباشی خیلی عالیه بازم بذار
فقط کافیه یه command button به فرم اظافه کنید و در قسمت روال command1 به جای 5555555 شماره مورد نظرتون رو بنویسید .
[HTML]Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" _
(ByVal DestAddr$, ByVal AppName As String, _
ByVal CalledParty As String, ByVal Comment As String) As Long
Private Sub Command1_Click()
tapiRequestMakeCall ",5555555", App.Title, "called", ""
End Sub
[/HTML]
موفق باشید :8: