درخواست کمک عاجزانه !!!! خواهشا کمک کنین...

khane_bozorg

New Member
من 10 تا api برای تغییر display setting میخام ، میخام یه فرم باشه با 10 تا دکمه هر کدوم یه api رو نشون بده و تنظیمات صفحه رو تغییر بده مثل رزولوشن فرکانس رنگ........


برا من بیسواد کلی کار داره اما وقت زیادی از شما نمیگیره یه برادری کنین ما رو شرمنده خودتون کنین


بازم ممنونم از همه
 
آخرین ویرایش:

bitaroos

Member
سلام مجدد خدمت خان بزرگ

میگم خان جان این نرم افزار هم چیز خوبیه، کد های API رو خودش برات می نویسه
به عکس پیوستی نگاه کن

1- زبان مورد علاقه ات رو انتخاب کن
2- با توجه به سوال شما در قسمتی که با فلش 2 نشون دادم DeskTopMonitor رو اتخاب کردم
3- مشخصه دیگه، برای بدست آوردن عرض صفحه نمایش رو ScreenWidth کلیک کردم تا کد ها در سمت راست برنامه تولید بشه
4- اون شماره 4 رو هم اگر کلیک کنی، عرض صفحه نمایش دسکتاپ خودت رو نمایش میده
:tavajoh:: اول فایل رو از حالت Zip در بیار، بعد برنامه رو اجراکن

آرزوی موفقیت
 

پیوست ها

  • WMICodeCreator.zip
    121.4 کیلوبایت · بازدیدها: 8
  • h.jpg
    h.jpg
    161.2 کیلوبایت · بازدیدها: 5

khane_bozorg

New Member
private const dm_pelswidth = &h80000
private const dm_pelsheight = &h100000

private const cds_fullscreen = &h4
private const cds_global = &h8
private const cds_noreset = &h10000000
private const cds_reset = &h40000000
private const cds_test = &h2
private const cds_updateregistry = &h1


private type devmode
dmdevicename as string * 32
dmspecversion as integer
dmdriverversion as integer
dmsize as integer
dmdriverextra as integer
dmfields as long
dmorientation as integer
dmpapersize as integer
dmpaperlength as integer
dmpaperwidth as integer
dmscale as integer
dmcopies as integer
dmdefaultsource as integer
dmprintquality as integer
dmcolor as integer
dmduplex as integer
dmyresolution as integer
dmttoption as integer
dmcollate as integer
dmformname as string * 32
dmunusedpadding as integer
dmbitsperpel as integer
dmpelswidth as long
dmpelsheight as long
dmdisplayflags as long
dmdisplayfrequency as long
dmpanningwidth as long 'win2000
dmpanningheight as long 'win2000
end type

private declare function changedisplaysetting*** lib "user32" alias "changedisplaysetting***a" (lpszdevicename as any, lpdevode as any, byval hwnd as long, byval dwflags as long, lparam as any) as long
dim oldx as long, oldy as long

private sub form_load()
dim dev as devmode

oldx = screen.width / screen.twipsperpixelx
oldy = screen.height / screen.twipsperpixely

dev.dmsize = len(dev)
dev.dmfields = dm_pelswidth or dm_pelsheight
dev.dmpelswidth = 800
dev.dmpelsheight = 600

changedisplaysetting*** byval 0&, dev, byval 0&, cds_updateregistr, byval 0&
end sub

private sub form_unload(cancel as integer)
dim dev as devmode

dev.dmsize = len(dev)
dev.dmpelswidth = oldx
dev.dmpelsheight = oldy

changedisplaysetting*** byval 0&, dev, byval 0&, cds_updateregistr, byval 0&
end sub





اقا کسی نبود دو تا کد اینطوری بده ما حالشو ببریم ؟
 
آخرین ویرایش توسط مدیر:

bitaroos

Member
سلام
من نمی دونستم از VB6 استفاده می کنید. کلا تا حالا با توابع API کار نکردم، فقط بعضی وقت ها اونم در حد کپی Paste
اون لینک هایی هم براتون گذاشتم مربوط به C#.net بود.
ولی فکر کنم دستورات API برای برای این زبان ها با هم فرق نمیکنه (مطمئن نیستم)

البته فکر می کنم تو قسمت Code Language نرم افزاری که گذاشتم، VisualBasic Script همون VB باشه.
اگر نحوه ی استفاده از از نرم افزار رو می خوای با C#.net برات گذاشتم. البته برای استفاده توی VB باید یه تغییرات کوچیک
توش بدی مثلا بجای Label1.Text فکر کنم باید بنویسی Label1.Caption ولی مطمئن نیستم چون تا حالا با vb کار نکردم

اول این عکس رو نگاه کن
بعد هم اگر visual studio داری این فایل رو نگاه کن
اگر هم visual studio نداری کد های زیر رو نگاه کن

PHP:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Management;

namespace API
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void btnDetect_Click(object sender, EventArgs e)
        {

            try
            {
                ManagementObjectSearcher searcher = 
                    new ManagementObjectSearcher("root\\CIMV2", 
                    "SELECT * FROM Win32_DisplayConfiguration"); 

                foreach (ManagementObject queryObj in searcher.Get())
                {
                    label1.Text = "DisplayFrequency: " + queryObj["DisplayFrequency"];
                }
            }
            catch (ManagementException exp)
            {
                MessageBox.Show("An error occurred while querying for WMI data: " + exp.Message);
            }
        }
    }
}

سرچ گوگل خیلی کمک میکنه
از این نرم افزار اسم اون توابع API رو پیدا کن و بعد برای VB6 تو گوگل سرچ کن
من نه به توابع API مسلطم و نه VB6 بلدم و یکم هم سرم شلوغه وگرنه برات می نوشتم.

موفق باشی
 

پیوست ها

  • API.rar
    33 کیلوبایت · بازدیدها: 13
  • h.jpg
    h.jpg
    276.1 کیلوبایت · بازدیدها: 6

جدیدترین ارسال ها

بالا