كود كتابة اسم او جملة على سطج المكتب

كود :

Imports System.Drawing.Drawing2D

Imports System.Runtime.InteropServices





Public Class Form1





    <DllImport("User32.dll")> _

  Private Shared Function GetDC(ByVal hwnd As IntPtr) As IntPtr

    End Function





    <DllImport("User32.dll")> _

    Private Shared Sub ReleaseDC(ByVal dc As IntPtr)

    End Sub





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim desktop As IntPtr = GetDC(IntPtr.Zero)

        Using g As Graphics = Graphics.FromHdc(desktop)

            Dim SL As Drawing.Rectangle = Screen.PrimaryScreen.WorkingArea

            g.DrawString("اللهم صلي علي محمد وعلي آل محمد", New Font("Arial", 20, FontStyle.Bold), Brushes.White, SL.Width / 2 - 100, SL.Height / 2)

        End Using

        ReleaseDC(desktop)

    End Sub





End Class

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.Runtime.InteropServices;

namespace WindowsFormsApplication2
{
    public partial class Form1 : Form
    {
        const int SPI_SETDESKWALLPAPER = 20;
        const int SPIF_UPDATEINIFILE = 0x01;
        const int SPIF_SENDWININICHANGE = 0x02;

        public Form1()
        {
            InitializeComponent();
        }

        [DllImport("user32.dll", CharSet = CharSet.Auto)]
        static extern int SystemParametersInfo(int uAction, int uParam, string lpvParam, int fuWinIni);


        private void button1_Click(object sender, EventArgs e)
        {
            if (textBox1.Text.Trim() == "") { MessageBox.Show("write something"); return; }

            Microsoft.Win32.RegistryKey key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(@"Control Panel\Desktop",true);
            string wallPaperPath = (string)key.GetValue("Wallpaper", "");

            Image im = Image.FromFile(wallPaperPath);

            using (Graphics gr = Graphics.FromImage(im))
            {
                gr.DrawString(textBox1.Text, new Font("Arial", 50, FontStyle.Bold), Brushes.White, im.Width - textBox1.Text.Length * 30 , 5);
            }



            string FolderPath = "c://New Wallpapers";
            string imgPath = "c://New Wallpapers/img.jpg";


            if (!System.IO.Directory.Exists (FolderPath))
            {
                System.IO.Directory.CreateDirectory(FolderPath);
            }

            im.Save(imgPath);

            key.SetValue("Wallpaper", imgPath);
            key.SetValue("WallpaperStyle", 2.ToString());
            key.SetValue("TileWallpaper", 0.ToString());

            SystemParametersInfo(SPI_SETDESKWALLPAPER,
    0,
    imgPath,
    SPIF_UPDATEINIFILE | SPIF_SENDWININICHANGE);
        }
    }
}

PHP كود :

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Namespace WindowsFormsApplication2
    Public Partial Class Form1
        Inherits Form

        Const SPI_SETDESKWALLPAPER As Integer = 20
        Const SPIF_UPDATEINIFILE As Integer = &H1
        Const SPIF_SENDWININICHANGE As Integer = &H2

        Public Sub New()
            InitializeComponent()
        End Sub

        <DllImport("user32.dll", CharSet := CharSet.Auto)> _
        Private Shared Function SystemParametersInfo(uAction As Integer, uParam As Integer, lpvParam As String, fuWinIni As Integer) As Integer
        End Function


        Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.click
            If textBox1.Text.Trim() = "" Then
                MessageBox.Show("write something")
                Return
            End If

            Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)
            Dim wallPaperPath As String = DirectCast(key.GetValue("Wallpaper", ""), String)

            Dim im As Image = Image.FromFile(wallPaperPath)

            Using gr As Graphics = Graphics.FromImage(im)
                gr.DrawString(textBox1.Text, New Font("Arial", 50, FontStyle.Bold), Brushes.White, im.Width - textBox1.Text.Length * 30, 5)
            End Using



            Dim FolderPath As String = "c://New Wallpapers"
            Dim imgPath As String = "c://New Wallpapers/img.jpg"


            If Not System.IO.Directory.Exists(FolderPath) Then
                System.IO.Directory.CreateDirectory(FolderPath)
            End If

            im.Save(imgPath)

            key.SetValue("Wallpaper", imgPath)
            key.SetValue("WallpaperStyle", 2.ToString())
            key.SetValue("TileWallpaper", 0.ToString())

            SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imgPath, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
        End Sub
    End Class
End Namespace