DSolve[Derivative[1][y][x] == (x + E^y[x]*x^3 + x^4 - E^y[x]*Log[E^y[x] + x] - x*Log[E^y[x] + x] + E^y[x]*y[x] + x*y[x])/x^2,y[x],x]