史萊姆論壇 - 有人有用C#寫程式嗎

史萊姆論壇 (http://forum.slime.com.tw/)

- 生活話題、日常閒聊、喇勒唬爛灌水區 (http://forum.slime.com.tw/f23.html)

- - 有人有用C#寫程式嗎 (http://forum.slime.com.tw/thread290365.html)

有人有用C#寫程式嗎

最近有接觸C#後，發覺C#似乎無法編譯單一執行檔，必須連帶dll,xml等檔案，才可執行，不過估狗了一下，好像有不少方法可以解決這問題，但好像都蠻複雜的
有人有用過嗎？可否提供一下經驗

語法:

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.IO;

using System.Linq;

using System.Runtime.InteropServices;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

 

namespace Toolstoy

{

    public partial class Form1 : Form

    {

        [StructLayout(LayoutKind.Sequential)]

        public struct SHFILEINFO

        {

            public IntPtr hIcon;

            public int iIcon;

            public uint dwAttributes;

            public string szDisplayName;

            public string szTypeName;

        };

        const uint SHGFI_ICON = 0x00000100;

        const uint SHGFI_LARGEICON = 0x00000000;

        const uint SHGFI_SMALLICON = 0x00000001;

        const uint SHGFI_SYSICONINDEX = 0x4000;

 

        [DllImport("shell32.dll")]

        public static extern IntPtr SHGetFileInfo(string filename, uint fileattributes, ref SHFILEINFO shfi, uint cbfi, uint flag);

        [DllImport("user32.dll")]

        public static extern bool DestroyIcon(IntPtr hIcon);

 

        public Form1()

        {

            InitializeComponent();

        }

 

        private void Form1_Load(object sender, EventArgs e)

        {

            listView1.Items.Clear();

            listView1.Columns.Add("名稱", 300, HorizontalAlignment.Left);

            listView1.Columns.Add("大小", 100, HorizontalAlignment.Right);

            listView1.View = View.Details;

            //DirectoryInfo selDir = new DirectoryInfo(Environment.CurrentDirectory);

            DirectoryInfo selDir = new DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments));

            //this.Text=Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments);

 

            DirectoryInfo[] listDir;

 

            FileInfo[] listFile;

 

            try { }

 

            catch { }

 

            listDir = selDir.GetDirectories();

 

            listFile = selDir.GetFiles();

 

            foreach (DirectoryInfo d in listDir)

            {

                SHFILEINFO shfi = new SHFILEINFO();

                SHGetFileInfo(d.FullName, 0, ref shfi, (uint)Marshal.SizeOf(shfi), SHGFI_ICON | SHGFI_SMALLICON);

                Icon myicon = (Icon)Icon.FromHandle(shfi.hIcon).Clone();

                DestroyIcon(shfi.hIcon);

                imageList1.Images.Add("dir", myicon);

               ListViewItem lv = new ListViewItem(d.Name);

                lv.ImageKey = "dir";

                listView1.Items.Add(lv);

            }

 

 

            foreach (FileInfo d in listFile)

            {

                SHFILEINFO shfi = new SHFILEINFO();

                SHGetFileInfo(d.FullName, 0, ref shfi, (uint)Marshal.SizeOf(shfi), SHGFI_ICON | SHGFI_SMALLICON);

                Icon myicon = (Icon)Icon.FromHandle(shfi.hIcon).Clone();

                DestroyIcon(shfi.hIcon);

                imageList1.Images.Add(d.Extension, myicon);

                ListViewItem lv = new ListViewItem(d.Name);

                string num = d.Length.ToString();

                lv.ImageKey = d.Extension;

                lv.SubItems.Add(num);

                listView1.Items.Add(lv);

            }

        }

    }

}

分享這幾天研究的經驗:on_16:

我是沒裝 C#
不過看那一篇文章
https://www.ruyut.com/2023/01/dotnet...eployment.html
好像不會很複雜

看到
=========================
另外透過下面這行指令就可以不在 csproj 檔案中設定，就不包含執行環境、不產生 .pdb 檔案，只輸出一個 exe 檔案：
=========================
下的命令範例

語法:

dotnet publish -r win-x64 -p:PublishSingleFile=true -p:DebugType=embedded --no-self-contained

你必須先切換到你的專案下
比如你的專案是建置在
I:\VS2010\KWattIs\
就依序輸入
I: [按ENTER]
CD I:\VS2010\KWattIs\ [按ENTER]
最後如實貼上

語法:

dotnet publish -r win-x64 -p:PublishSingleFile=true -p:DebugType=embedded --no-self-contained

[按ENTER]

又因為這使用
Visual Studio 命令提示字元
使用命令行做建檔方式

很可能會發生
提示
dotnet不是内部或外部的命令，也不是可运行的程序或批处理 ...
WWW上說你可以這樣做
https://www.cnblogs.com/wx881208/p/17011698.html

*********************
也就是
你可以先檢查一下

PATH 改過就必須重開機才有效

以上~沒實做過 (只玩 VB沒玩 C)

語法:

想要發布單一檔案則需要在 csproj 檔案中增加 PublishSingleFile 

<Project Sdk="Microsoft.NET.Sdk">

 

    <PropertyGroup>

        <OutputType>WinExe</OutputType>

        <TargetFramework>net7.0-windows</TargetFramework>

        <Nullable>enable</Nullable>

        <UseWindowsForms>true</UseWindowsForms>

        <ImplicitUsings>enable</ImplicitUsings>

        <PublishSingleFile>true</PublishSingleFile>

    </PropertyGroup>

 

</Project>

感謝，只要在這裡加上<PublishSingleFile>true</PublishSingleFile>就行了:on_02:

附帶一聊，M$好像已經不再對basic 做更新了，連帶網站都取消basic 的教學範例

語法:

Imports System.IO

Imports System.Runtime.InteropServices

Public Class Form1

    Private Structure SHFILEINFO

        Public hIcon As IntPtr ' : icon

        Public iIcon As Integer ' : icondex

        Public dwAttributes As Integer ' : SFGAO_ flags

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public szDisplayName As String

        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> Public szTypeName As String

    End Structure

    Private Declare Ansi Function SHGetFileInfo Lib "shell32.dll" (ByVal pszPath As String, ByVal dwFileAttributes As Integer, ByRef psfi As SHFILEINFO, ByVal cbFileInfo As Integer, ByVal uFlags As Integer) As IntPtr

 

    Private Const SHGFI_ICON = &H100

    Private Const SHGFI_SMALLICON = &H1

    Private Const SHGFI_LARGEICON = &H0         ' Large icon

    Private nIndex = 0

 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ListView1.Items.Clear()

        Me.ListView1.View = View.Details

        Me.ListView1.SmallImageList = Me.ImageList1

        Me.ListView1.Columns.Add("檔案名稱", 500, HorizontalAlignment.Left)

        Me.ListView1.Columns.Add("修改日期", 160, HorizontalAlignment.Left)

        Dim shinfo As SHFILEINFO

        shinfo = New SHFILEINFO()

        Dim spd() As String = {"桌面", "文件", "下載"}

        For Each dn As String In spd

            Dim bn As New ToolStripButton(dn)

            Select Case (dn)

                Case "桌面"

                    SHGetFileInfo(My.Computer.FileSystem.SpecialDirectories.Desktop, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)

                    bn.ToolTipText = My.Computer.FileSystem.SpecialDirectories.Desktop()

                Case "文件"

                    SHGetFileInfo(My.Computer.FileSystem.SpecialDirectories.MyDocuments, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)

                    bn.ToolTipText = My.Computer.FileSystem.SpecialDirectories.MyDocuments

                Case "下載"

                    SHGetFileInfo(My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", False).GetValue("{374DE290-123F-4565-9164-39C4925E467B}"), 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)

                    bn.ToolTipText = My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", False).GetValue("{374DE290-123F-4565-9164-39C4925E467B}")

            End Select

            bn.Image = System.Drawing.Icon.FromHandle(shinfo.hIcon).ToBitmap

            ToolStrip2.Items.Add(bn)

            AddHandler bn.Click, AddressOf ToolStripButton_Click

        Next

        Dim drives() As String = Directory.GetLogicalDrives()

        For Each drv As String In drives

            Dim bn As New ToolStripButton(drv)

            SHGetFileInfo(drv, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)

            bn.Image = System.Drawing.Icon.FromHandle(shinfo.hIcon).ToBitmap

            ToolStrip2.Items.Add(bn)

            AddHandler bn.Click, AddressOf ToolStripButton_Click

        Next

 

        FileSystemWatcher1.Path = My.Computer.FileSystem.CurrentDirectory

        FileSystemWatcher1_Changed(sender, Nothing)

    End Sub

 

    Private Sub FileSystemWatcher1_Changed(sender As Object, e As FileSystemEventArgs) Handles FileSystemWatcher1.Changed

        ImageList1.Images.Clear()

        Me.ListView1.Items.Clear()

        Dim hImgSmall As IntPtr  'The handle to the system image list.

        Dim shinfo As SHFILEINFO

        Dim nIndex As Integer = 0

        shinfo = New SHFILEINFO()

        Dim dir As New DirectoryInfo(FileSystemWatcher1.Path)

        Dim dirs As DirectoryInfo() = dir.GetDirectories("*.*")

        Dim diNext As DirectoryInfo

        For Each diNext In dirs

            hImgSmall = SHGetFileInfo(diNext.FullName, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)

            Dim myIcon As System.Drawing.Icon

            myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)

            ImageList1.Images.Add("dir", myIcon) 'Add icon to imageList.

            Dim lvItem As New ListViewItem(diNext.Name, "dir")

            lvItem.SubItems.Add(diNext.LastWriteTime)

            Me.ListView1.Items.Add(lvItem)

        Next

        For Each f In dir.GetFiles("*.*")

            hImgSmall = SHGetFileInfo(f.FullName, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)

            Dim myIcon As System.Drawing.Icon

            myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)

            ImageList1.Images.Add(f.Extension, myIcon) 'Add icon to imageList.

            Dim lvItem As New ListViewItem(f.Name, f.Extension)

            lvItem.SubItems.Add(f.LastWriteTime)

            Me.ListView1.Items.Add(lvItem)

        Next

    End Sub

    Private Sub ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        FileSystemWatcher1.Path = DirectCast(sender, ToolStripButton).ToolTipText

        FileSystemWatcher1_Changed(sender, Nothing)

    End Sub

End Class

Vb 版

引用:

作者: 魔術王子 (文章 2383385)

語法:

想要發布單一檔案則需要在 csproj 檔案中增加 PublishSingleFile 

<Project Sdk="Microsoft.NET.Sdk">

 

    <PropertyGroup>

        <OutputType>WinExe</OutputType>

        <TargetFramework>net7.0-windows</TargetFramework>

        <Nullable>enable</Nullable>

        <UseWindowsForms>true</UseWindowsForms>

        <ImplicitUsings>enable</ImplicitUsings>

        <PublishSingleFile>true</PublishSingleFile>

    </PropertyGroup>

 

</Project>

感謝，只要在這裡加上<PublishSingleFile>true</PublishSingleFile>就行了:on_02:

附帶一聊，M$好像已經不再對basic 做更新了，連帶網站都取消basic 的教學範例

那篇說此方法還是會生出兩個檔案 ?

windows 1X 只要 VB 還能執行就好
當初 Win 10說不再支援 VB 6
但
以前用 VB6寫的目前也運行無誤 ... (也能安裝 VB 6無誤)
用好一點的 PC去跑
用起來感覺能再跑個 10幾 20年 :on_45: (模擬程式命中率也不低)

引用:

作者: mini (文章 2383387)

我們公司也是有人一直用vb6 不肯用新版，當然我有用過vb6 vb2008 vb2013 ，這三款元件名稱完全不同，轉換會有陣痛期，不過除這原因，是否還有其他不想換的原因
因為新版有蠻多很炫的功能，而且使用上也比舊版更容易

引用:

作者: 魔術王子 (文章 2383390)

讓人想起件事
現在AI很夯
那些名人說叫大家不用因為AI是新興產業
而去學 AI大模型如何寫(程式設計)，因為以後寫程式交給AI就可以
這是
有點對也有點不對的說法

因為
要了解一個產業
你必須學些基礎，比如人類發明計算機，並不會因此不去學數學
根據你的領域去使用工具，你可以把程式都交給AI寫，但你有可能會錯過一些東西
人的發明應用很多時候是意外下的產物
如果哪天人們把程式寫作完全外包給AI
或許會扼殺 "下一個劃時代的發明"
而是
你可以把已經有的經驗交給它實現
節省時間去做更有意思的事物
創作就是其中之一
這個想法
與現在AI的發明之情境同樣不謀而合 (學新的程式語言與初衷有偏，是為了創作去學工具，而不是為了學工具去創作)
什麼層面使用什麼樣的深度
不是系統工程師就學到此就好了

大概再過個 5年吧~ (AI更普及，人人都能負擔起高檔的AI PC助理)
以後學校就不是教你寫程式，而是教幾堂程式概念後
就教你如何使用AI這個工具去天馬行空

當然AI輔助程式寫作是不可能一步到位
比較可能的發展就像
Photoshop 出了個 AI外掛功能

到時程式寫作也是
可能是各語言的IDE出現 "AI助理" 幫你寫小功能
再由你自己組裝連結

再發展到
由你指示哪一個語言一步步幫你整合
你只要畫出介面或功能區塊圖就好

最後才發展到全口頭開發

引用:

作者: mini (文章 2383393)

話才沒講完多久
首位AI軟體工程師Devin誕生能寫程式、除錯、建立網站

機器人新創募資報捷Figure獲6.7億美元資金

文中有提到一句
【該公司將用籌來的資金擴大AI訓練、機器人製造，並聘請更多工程師。】
讓人噴飯，是在騙智障嗎?
等這位超級AI軟體工程師利用了人類智慧訓練完成後
這些人就變成米蟲，老闆就把你們解聘
一個軟體工程師在怎麼厲害也比不過所有程式語言精通的一位AI軟體工程師厲害吧~
到時候老闆只留有創意的員工
做死做活腦袋著火的前員工
去當外送員都沒得當(因為現在已經有天上飛的與地上走的之外送員)

================
目前的 AI是生成式AI，也就是能某種程度的無中生有
現在人們會說人類只要能保持創意就不用怕 AI
但其實現在的AI已經有創意的影子
【一本正經地胡說八道】其實就是某一種程度的創意，只要未來兩家不同的 AI能對話
只要硬體繼續突破
人類花以年為單位的進化
AI則是以分秒為單位在進化
到時AI就極可能能達到真正人類創作的地步

這其實真的很恐怖，以後AI不再是工具
可能先成為事業夥伴(諮詢師)
接著是董事(找一位街友掛名)
最後成為老闆(轉投資後變某公司的公司的實際出資者)，人類只能做女僕般的工作
哈~ 離人類毀滅不遠了
只希望活的時候不會見到 (離開地表後就不關我的事)