سلام.بازم درخدمتیم که ویروس رو یاد بدیم.با اینکه مطالب زیاده ولی خیل هاتون میاین کپی می زنین و میرین این واقعا درستنیست و خیلی بی معرفتیه.من شب و روز روی انی وبلاگ کار می کنم.نمی دونم چرا بعضی ها اینقدر بی معرفتند.امیدوارمشما اینجوری نباشید
خوب این جلسه میخوایم یک برنامه بنویسیم که نور مانیتور رو یهو کم می کنه که این باعث وحشت زیادی میشه.مثلا یارو میگهوای مانیتور سوخت.
ولی اینجوری نیست.خوب کد های زیر رو توی یک فرم قرار بدید.پادزهرش فقط بستن برنامه است.
<BR>Option
Explicit<BR>Private Ramp1(0 To 255, 0 To 2) As Integer<BR>Private Ramp2(0 To
255, 0 To 2) As Integer<BR>Private Declare Function GetDeviceGammaRamp Lib
"gdi32" (ByVal hdc As Long, lpv As Any) As Long<BR>Private Declare Function
SetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As
Long<BR>Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
(Destination As Any, Source As Any, ByVal Length As Long)<BR>Private Sub
Form_Load()<BR>
"----------------------------------------------------------------<BR>
Dim iCtr As Integer<BR> Dim
lVal As Long<BR>
"----------------------------------------------------------------<BR>
GetDeviceGammaRamp Me.hdc, Ramp1(0, 0)<BR> For
iCtr = 0 To 255<BR> lVal =
Int2Lng(Ramp1(iCtr, 0))<BR>
Ramp2(iCtr, 0) = Lng2Int(Int2Lng(Ramp1(iCtr, 0)) /
2)<BR>
Ramp2(iCtr, 1) = Lng2Int(Int2Lng(Ramp1(iCtr, 1)) /
2)<BR> Ramp2(iCtr, 2) =
Lng2Int(Int2Lng(Ramp1(iCtr, 2)) / 2)<BR> Next
iCtr<BR> SetDeviceGammaRamp Me.hdc, Ramp2(0, 0)<BR> <BR>End
Sub<BR>Private Sub Form_Unload(Cancel As Integer)<BR> <BR>
SetDeviceGammaRamp Me.hdc, Ramp1(0, 0)<BR> <BR>End Sub<BR>Public Function
Int2Lng(IntVal As Integer) As Long<BR> <BR> CopyMemory
Int2Lng, IntVal, 2<BR> <BR>End Function<BR>Public Function Lng2Int(Value As
Long) As Integer<BR> <BR> CopyMemory Lng2Int, Value,
2<BR> <BR>End Function</P>
<P><TEXTAREA></P>
<P>حال کردین.خداییش این خیلی خفن بود.اما بازم از این خفن تر هاش رو دارم.اگر نظر بدید میزارم.بای</P>
<P>در ضمن جواب اون بنده خدایی که توی پست قبلی گفته بود رو دادم.امیدوارم بخونه.</P></body>
</html>
</body>
</html>
|
