تغییر ساعت و تقویم ویندوز [بایگانی]

oYaMaa

جمعه 05 آبان 1391, 21:37 عصر

سلام دوستان...
برنامه ای میخوام تا بشه از طریق اون ساعت و تقویمویندوز رو تغییر داد؟
ممنون!

MohammadGh2011

جمعه 05 آبان 1391, 21:42 عصر

سلام دوستان...
برنامه ای میخوام تا بشه از طریق اون ساعت و تقویمویندوز رو تغییر داد؟
ممنون!
سلام
ببين اينو امتحان کنيد ببينيد جواب ميده:
Time = "10:10:10"

و يا براي تاريخ ؛ به جاي time بنويس date
من قبلا امتحان کردم جواب داده البته براي Xp تو سون رو نميدونم.

موفق باشيد

oYaMaa

جمعه 05 آبان 1391, 22:13 عصر

سلام
ببين اينو امتحان کنيد ببينيد جواب ميده:
Time = "10:10:10"

و يا براي تاريخ ؛ به جاي time بنويس date
من قبلا امتحان کردم جواب داده البته براي Xp تو سون رو نميدونم.

موفق باشيد

نه عزیز روی ویستا جواب نداد...!:ناراحت:

MohammadGh2011

شنبه 06 آبان 1391, 10:30 صبح

تاپيک زير را بررسي فرماييد:

http://barnamenevis.org/showthread.php?330303-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D8%B3%D8%A7%D8%B9%D8%AA-%D9%88-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D8%B3%DB%8C%D8%B3%D8%AA%D9%85-%D8%AF%D8%B1-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2-7

oYaMaa

شنبه 06 آبان 1391, 23:47 عصر

تاپيک زير را بررسي فرماييد:

http://barnamenevis.org/showthread.php?330303-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D8%B3%D8%A7%D8%B9%D8%AA-%D9%88-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D8%B3%DB%8C%D8%B3%D8%AA%D9%85-%D8%AF%D8%B1-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2-7

ممنون دوست من ولی هیچ یک از سورس های این تایپیک روی ویستا عمل نکرد!!!
واقعا چاره چیه؟!

amin32

یک شنبه 07 آبان 1391, 00:10 صبح

ممنون دوست من ولی هیچ یک از سورس های این تایپیک روی ویستا عمل نکرد!!!
واقعا چاره چیه؟!

احتمالآ مشکلتون به خاطر این هست که برنامتون اجازه دسترسی به صورت Administrator رو نداره. برای امتحان از برنامتون خروجی EXE بگیرید و بعد روی برنامه راست کلیک کنید و Run as Administrator رو بزنید , ببینید عمل میکنه؟

oYaMaa

یک شنبه 07 آبان 1391, 00:27 صبح

احتمالآ مشکلتون به خاطر این هست که برنامتون اجازه دسترسی به صورت Administrator رو نداره. برای امتحان از برنامتون خروجی EXE بگیرید و بعد روی برنامه راست کلیک کنید و Run as Administrator رو بزنید , ببینید عمل میکنه؟
بله در این حالت جواب میده.
ولی نمیخوام و نمیتونم دسترسی ادمین بهش بدم.
راهی نداره دورش بزنیم؟

amin32

یک شنبه 07 آبان 1391, 00:37 صبح

بله در این حالت جواب میده.
ولی نمیخوام و نمیتونم دسترسی ادمین بهش بدم.
راهی نداره دورش بزنیم؟

اگه بشه ,　یعنی امنیت ویندوز رو دور زدین!!! فکر نمیکنم بشه . فقط میتونید کاری کنید که با اجرای برنامه ,خودش از کاربر درخواست اجرا از طریق ادمین کنه.

امین مستانی

یک شنبه 07 آبان 1391, 08:56 صبح

سلام

با این کد میتونید بفهمید کاربر دسترسی آدمین داره یا نه !

Private Declare Function IsUserAnAdmin Lib "Shell32" Alias "#680" () As Integer

Private Sub Form_Load()
If CBool(IsUserAnAdmin) Then
MsgBox "Required administrator access...", vbCritical
End
End If
End Sub

این تاپیک رو هم بخونید (برای اجرای به صورت Run as adminstrator اتوماتیک)

http://barnamenevis.org/showthread.php?363103-%DA%86%DA%AF%D9%88%D9%86%D9%87-%D9%87%D9%85-%D8%B8%D8%A7%D9%87%D8%B1-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%B1%D9%88-%D8%B9%D9%88%D8%B6-%D9%83%D9%86%D9%8A%D9%85-%D9%88-%D9%87%D9%85-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%B1%D9%88-Ran-as-administrator-%D8%A7%D8%AC%D8%B1%D8%A7-%D9%83%D9%86%D9%8A%D9%85%D8%9F

موفق باشید

MohammadGh2011

یک شنبه 07 آبان 1391, 09:01 صبح

سلام
با این کد میتونید بفهمید کاربر دسترسی آدمین داره یا نه !

Private Declare Function IsUserAnAdmin Lib "Shell32" Alias "#680" () As Integer
Private Sub Form_Load()
If CBool(IsUserAnAdmin) Then
MsgBox "Required administrator access...", vbCritical
End
End If
End Sub

سلام عليکم
با اجازه ي جناب مستاني
براي اينکه کد به درستي عمل کنه خط سوم رو به خط زير تغيير بديد:
If CBool(IsUserAnAdmin) = False Then

موفق باشيد